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ABSTRACT 


(Distribution  Limitation  Statement  A) 

Radiation  effects  analysis  of  complex  electronic  circuits  by  computers  presently 
is  limited  by  core  storage  and  long  execution  times.  A  new  method,  entitled  It¬ 
erated  Propagation  of  Bivariable  Response  Functions,  treats  components  in  the 
block  sense  using  experimentally  obtained  time  domain  response  or  transfer  func¬ 
tions  •  These  functions  are  described  in  a  three  dimensional  space  of  the  input 
stimuli,  output  response,  and  time,  by  means  of  fitting  the  experimental  data 
with  cubic  polynomials  matched  in  the  spline  sense  at  interstices  of  the  fitting 
grid.  The  basic  data  was  obtained  using  conventional  oscilloscoplc  techniques 
at  the  Kirtland  AFB  flash  X-ray  facility  and  the  Sandia  pulse  reactor.  A  compu¬ 
ter  program  called  SAP,  adapted  to  work  with  SCEPTRE,  uses  a  modified  convolu¬ 
tion  process  to  calculate  the  electrical  and  the  gamma  and  neutron  radiation  re¬ 
sponses  from  the  surface  descriptions.  These  responses  are  then  superimposed  to 
obtain  the  combined  response.  Such  a  process  is  not  rigorous  but  rather  an  en¬ 
gineering  class  of  approximation.  The  results  achieved  ranged  from  fair  to  ex¬ 
cellent,  as  applied  to  a  ?4l  operational  amplifier  and  a  9704  dual  NAND  gate. 

The  three  dimensional  surfaces  provide  a  vivid  grasp  of  device  performance  and 
radiation  response  over  the  entire  range  of  the  stimulus  variables. 
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SECTION  I 


INTRODUCTION 

This  report  describes  the  ideas  behind  a  block  oriented  computer  analy¬ 
sis  technique  termed  Bivariable  Response  Function  Propagation  and  how  these  ideas 
were  applied  to  the  electrical  and  radiation  responses  of  a  linear  integrated  cir¬ 
cuit  operational  amplifier  and  a  digital  NAND  gate.  The  dynamical  response  of 
the  circuits  is  represented  using  three-dimensional  surfaces  which  were  fit  to 
experimental,  data  acquired  from  neutron,  gamma  ray,  and  electrical  pulse  stimuli. 
The  block  response  in  a  subsequer '  jircuit  or  systtn  analysis  problem  is  calcula¬ 
ted  using  these  surfaces  by  a  process  which  may  be  termed  convolution  in  the 
nonlinear  sense;  .ence,  the  process  constitutes  an  approximate  rather  than  a  rigo¬ 
rous  method.  Nevertheless,  computed  results  show  reasonable  agreement  with  those 
obtained  experimentally.  Further,  the  response  function  surfaces  provide  a  rich 
and  different  insight  into  the  effects  of  radiation  on  devices. 

1.  PRESENT  PRCHLSKS 

The  presently  existing  transient  radiation  effect  codes  have  been  extremely 
effective  in  enabling  device  and  circuit  designers  to  assess  the  validi+y  of 
their  designs  prior  to  actually  fabricating  or  building  them.  By  developing 
physical  understanding  of  the  electrical  characteristics  of  the  device,  and  then 
learning  how  radiation  alters  these  physical  properties,  one  cant 

•  extrapolate  test  data  to  other  dosages, 

t  determine  best  device  geometry  and  circuit  layout, 

•  alter  physical  parameters  to  improve  device  characteristics, 

•  ascertain  radiation  testing  required  and  what  measurements  are  needed. 

Thus  the  existing  programs  such  as  SCEPTRE,  TRAC,  and  NET  have  indeed  been  useful 
in  meeting  the  primary  goals  for  which  they  were  devised. 

Several  aspects  of  the  present  computer  modeling  approaches  are  unaccep¬ 
table,  namely j 

•  core  limitation  on  nodes, 

•  excessive  execution  time,  say  due  to  very  small  time  constants, 
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•  convergence  problems  with  certain  eigenvalues.  This  depends  on 
whether  implicit  or  explicit  integration  is  used  in  the  program. 

•  Package  effects  are  not  included  in  the  equivalent  circuit. 

These  and  EMP  effects  can  cause  major  differences  between 
predicted  and  observed  radiation  responses, 

•  expenses  at  the  Nevada  test  site  are  very  high.  This  type  of 
testing  is  presently  needed  since  there  are  no  suitable  computer 
programs  for  predicting  performance  of  high  complexity  circuits. 

Note  also  that  such  test  procedures  only  yield  one  point  in  the 
parameter  space  of  the  radiation  stimulus  and  its  effect. 

2.  EXISTING  TECHNIQUES  FOR  MODELING 

The  primary  method  employed  to  determine  circuit  behavior  today  is  to  set 
up  Kirchoff's  laws  for  the  nodes  and  meshes  using  topological  trees,  build  the 
equivalent  device  models  into  a  set  of  simultaneous  algebraic  and  differential 
equations,  and  solve  these  by  standard  matrix  inversion  techniques.  Generally 
sparse  matrix  procedures  can  be  used  to  minimize  core  storage  requirements. 
Implicit  integration  can  be  used  to  reduce  solution  time,  and  enhance  conver¬ 
gence  likelihood. 

For  more  complex  systems,  state  variable  formulations,  physical  differential 
equations,  Linvill's  pseudo-linearization  models,  and  analog-hybrid  simulations 
are  the  primary  procedures  available.  It  is  important  to  note  these  methods  may 
require  heavy  experience  on  the  part  of  the  user  with  the  modeling  process. 

The  accuracy  of  an  analog  or  hybrid  simulation  is  not  so  much  a  question  of  the 
precision  of  the  analog  computer  per  se,  but  rather  the  valid} -  -f  the  model 
itself.  Sometimes,  supposedly  linear  elements  may  actually  be  non-linear  in  the 
transient  sense.  Consequently,  a  modeling  approach  based  on  the  incorrect 
assumptions  might  appear  satisfactory  for  slow  phenomena  but  fail  for  fast  events. 

Time  stepping  is  an  inherent  part  of  most  transient  computer  codes.  It  is 
essential  to  realize  that  this  is  a  fundamental  restriction  on  the  analysis 
technique  employed.  The  human  brain  does  not  analyze  a  system  by  a  time  stepping 
process.  Its  memorized  knowledge  of  the  various  response  functions,  and  their 
sensitivities  to  various  phenomena,  enables  it  to  sweep  through  a  mass  of  detail 
and  make  reasonably  valid  conclusions  about  the  true  system  performance.  Need¬ 
less  to  say  this  process  is  as  much  an  art  as  a  science.  And  moreover  digital 
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computers  up  to  now  have  found  it  difficult  to  emulate. 

Laplace  transformation  or  s  variable  analysis  is  probably  the  most  useful 
tool  engineers  have  available  for  treating  linear  systems  or  circuits.  Unfor¬ 
tunately  digital  circuits  and  most  radiation  effects  are  nonlinear,  and  hence, 
this  tool  is  not  generally  of  help  for  them.  The  wide  use  of  s  variable  analy¬ 
sis  has  acted  to  minimize  the  engineers'  familiarity  with  time  domain  approaches, 
which  is  the  way  computer  programs  step  through  the  solution.  This  is  another 
reason  for  the  dichotomy  between  thinking  patterns  and  computer  solution  techni¬ 
ques. 

Sensitivity  analysis  to  a  certain  extent  is  in  accord  with  the  rough  strategy 
the  mind  uses  in  evaluating  various  factors  and  how  they  affect  a  solution. 

Radiation  simulation  by  flash  Xray.  linear  accelerators,  lasers,  reactors, 
Marx  generators,  cobalt  sources,  etc.,  has  been  widely  used  to  provide  radiation 
effects  information  on  circuits  and  systems.  The  validity  of  the  result  depends 
on  the  pulse  spectrum,  time  duration  and  shape,  intensity,  and  secondary  effects 
such  as  ground  loops,  shielding,  input  and  output  loading  or  fan  in/out.  For  la¬ 
ser  simulation,  the  presence  of  overlying  metallizations  can  affect  the  result. 
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SECTION  II 


BASIC  THEORY  OF  BIVARIABLE  RESPONSE  FUNCTION  PROPAGATION 

1.  GENERAL  PROCEDURE 

As  circuit  and  system  complexity  levels  continue  to  expand,  it  seems  to  us 
mandatory  to  further  develop  techniques  which  treat  circuit  or  system  elements 
as  blocks  rather  than  a  collection  of  parts#  Note  that  this  is  a  permissible 
simplification  for  the  user  compared  with  a  designer  of  an  integrated  circuit 
or  IC.  The  user  of  an  IC  can  not  alter  the  chip  itself.  So  why  should  he  neces¬ 
sarily  be  required  to  know  the  circuit  diagram  of  it  simply  to  judge  its  use  as 
a  block  element  in  a  more  complex  circuit  or  system?  With  this  crucial  aspect 
deleted  from  the  analysis  requirement,  then  transfer  or  response  functions  seems 
a  permissible  approach. 

A  very  important  consideration  is  that  loading  effects  be  taken  into  account. 
This  immediately  forbids  simply  treating  voltage  transfer  functions  alone.  To 
show  the  elements  of  the  general  computation  algorithm,  let  us  now  consider  the 
case  of  simple  serial  blocks, 

a.  Serial  Blocks 

Suppose  there  are  JMAX  blocks  connected  in  series  with  an  input  voltage 
and  current  applied  at  the  input  node  of  the  first  or  J  -  1  block,  which  is  then 
propagated  through  it  to  the  next  so  that  its  output  voltage  and  current  becomes 
the  input  voltage  and  current  for  the  next  J  ■  2  block,  and  so  forth  down  the  se¬ 
quence  to  the  last  or  JMAX  block.  Such  a  procedure  is  readily  accomplished  in  a 
FORTRAN  program  by  a  DO  loop  on  the  index  J, 
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The  operators  which  yield  the  output  given  the  input  stimulus  for  a  given  block 
we  will  label  T  and  T  ,  the  transfer  or  response  functions  on  the  voltage  and 
current,  respectively.  In  general,  they  are  functions  of  time,  and  of  the  applied 
voltages  and  currents,  as  well  as  the  circuit  operating  voltages,  radiation  de¬ 
gradation,  etc.  We  will  show  later  what  some  transfer  functions  look  like,  in 
equation  and  numerical  form  for  typical  circuit  elements.  But  first  the  specific 
method  for  solving  the  system  problem  must  be  discussed. 

Initially  the  various  voltages  and  currents  in  the  circuit  are  unknown. 
Thus  an  algorithm  is  needed  to  solve  the  currents  for  a  specified  input  voltage 
and  circuit  configuration.  To  do  so,  note  that  the  output  voltages  and  currents 
are  related  to  the  input  voltages  and  currents  by 

eo“  Tel  Te2  Te3  *  '  *  TeJMAX  ®i 


JHAX 


{>1 


and 


*  Peei 


io  *  Td  Tc2  Tc3  *  TcJMAX  ii 


(1) 


"  Pc  ^  (2) 

whox^  .  e  repeated  product  of  the  block  voltage  and  current  transfer  functions 

are  abbreviated  by  P  and  P  ,  the  system  response  functions. 

0  c 

To  solve  the  total  system  problem,  suppose  that  a  high-impedance  load 
that  effectively  draws  no  current  is  at  the  last  node.  Hence 

-  0  (3) 

But  from  (2),  i^  /  0,  consequently  the  proper  solution  is  that  which  drives  the 
repeated  product  of  the  current  transfer  functions  P  to  zero, 

Pc  -  0  (4) 

The  system  current  response  function  is  an  explicit  function  of  the  input  varia¬ 
bles,  and  particularly  the  input  current.  Thus,  if  P  is  plotted  versus  the 

*  c 

input  current,  we  might  have  a  functional  dependence  as  shown  on  next  page. 
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Sketch  of  Product  of  Current  Transfer  Functions  versus  Adjusted  Input  Variable 


The  computational  algorithm  to  solve  the  system  current  and  voltage  problem  is 
thus  basically  a  zero  finding  process.  In  this  case  the  function  is  regarded  as 
a  numerical  form  as  compared  with  an  equation  or  a  polynomial  as  is  the  case  with 
many  system  analysis  techniques.  The  correct  value  of  i^  is  that  which  yields  Pc 
equal  zero, 

b.  Examples  of  Block  Transfer  Functions 

To  establish  the  context  of  thinking  of  simple  circuit  elements  as  block 
elements,  consider  a  resistor  connected  in  series  between  the  input  and  output 
terminals  as  shown  below.  The  output  current  is  equal  to  the  input  current 


o— VWWWW—o 


o- . - . -o 

Series  Configuration 


so  that, 


Similarly, 


hence 


(5) 


(6) 


i 


» 


6 


Whereas,  for  a  shunt  connected  resistor,  the  input  and  output  voltages  are  equal, 
but  the  output  current  is  reduced  by  that  shunted  through  the  •esistor  to  ground, 


so,  T0  -  1  (?) 

T  -  1  -  ji  (8) 

°  iiR 

Shunt  Configuration 


Thus,  the  sane  circuit  element  can  have  different  transfer  functions  de¬ 
pending  on  its  circuit  configuration*  For  an  integrated  circuit  being  used  in 
a  larger  circuit  or  systr.n  the  chip  configuration  is  fixed;  hence  its  transfer 
function  is  fixed. 

The  abovi.  equations  for  the  series  and  shunt  transfer  function  of  a  re¬ 
sistor  are  very  simple  analytical  relations.  However  if  we  want  to  be  able  to 
scale  complexity  levels  by  computer  analysis  without  completely  necessitating 
the  interaction  of  a  skilled  engineer,  it  pays  at  this  point  to  consider  an  al¬ 
ternative  mathematical  representation. 

Let  eq.  (5)  for  the  case  of  a  IK  ohm  resistor  be  plotted  with  respect  to 
the  space  of  the  input  variables  and  the  transfer  function.  It  then  represents 
a  three-dimensional  surface  as  shown  in  Figure  1.  Suppose  we  are  dealing  with  a 
block  element  for  which  we  do  not  have  a  suitable  analytical  expression.  By 
developing  a  numerically  defined  surface,  and  fitting  it  with  suitable  surface 
approximants,  such  as  three-dimensional  splines,  we  car  still  perform  a  system 
analysis.  Such  a  surface  can  be  deduced  by  experimental  measurements  or  by 
operating  a  component  level  computer  analysis  program  such  as  SCEPTRE  and  deter¬ 
mining  the  response  function  over  the  space  of  the  input  variables  by  direct 
computation. 

While  it  is  certainly  much  more  conservative  of  core  to  use  an  equation 
if  that  is  available,  we  are  not  stopped  provided  we  have  a  numerical  representa¬ 
tion  of  the  transfer  function. 
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To  see  how  such  a  surface  would  he  used  in  the  compute  -  analysis  program 
(and  actually  has  been  in  the  code  SAP  which  will  be  described  later),  a  propaga¬ 
ting  DO  loop  brings  values  of  input  voltages  and  currents  to  a  particular  block, 
calls  in  the  subroutines  for  the  voltage  and  current  transfer  functions  that  do 
look-ups  on  the  surface,  and  return  back  the  value  to  the  calling  program  that 
performs  the  propagation* 

The  current  transfer  function  for  the  shunt  connected  resistor  is  essen¬ 
tially  the  dual  of  the  one  shown  in  Figure  i,  with  the  axes  being  interchanged 
and  the  resistance  becoming  the  conductance. 

A  list  of  analytical  expressions  for  the  voltage  and  current  transfer 
functions  for  some  common  circuit  elements  is  presented  in  Table  I. 

c.  Iteration  Algorithm 

A  solution  of  the  system  problem  can  be  obtained  by  fixing  one  of  the  in¬ 
put  variables,  e^,  and  one  of  the  output  variables,  iQ.  For  purpose  of  nomencla¬ 
ture,  let  these  be  referred  to  as  the  fixed  input  or  output  variables.  The  solu¬ 
tion  strategy  of  the  computer  algorithm  varies  the  nonfixed  or  adjusted  input  var¬ 
iable  in  a  manner  which  forces  the  system  current  response  function  P  to  zero. 

C 

We  make  an  arbitrary  guess  at  the  initial  value  of  the  adjusted  variable,  and  cadi 
it  x  in  general,  or  for  a  specific  iterate,  a.  This  iterate  is  then  "propagated" 
through  the  sequence  of  blocks. 

The  result  of  the  propagation  yields  a  value  of  the  fixed  output  variable 
y  which  is  probably  not  the  desired  value  yQ  corresponding  to  our  constraint  con¬ 
dition  imposed  (i.e.  1  -0.)  We  need  then  to  correct  our  guess  at  x  which  will 
bring  y  closer  to  yQ.  These  words  can  be  expressed  in  functional  form  asi 

adjusted  output  variable  desired  value  of  adjusted 


Newton  devised  a  tactic  three  centuries  ago  for  solving  this  type  of  problem. 
Given  an  iterate,  a  ,  an  improved  guess  or  second  iterate  a'  for  x  which  drives 
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COMPONENT 

CONFIGURATION 

Resistor 

Series 

Resistor 

1 

Shunt 

I 

Capacitor 

Series 

Capacitor 

Shunt 

Inductance 

Series 

Inductance 

Shunt 

Diode 

Series 

Forward 

Biased 

Diode 

Series 

Reverse 

Biased 

Diode 

Shunt 

Forward 

Biased 

Diode 

Shunt 

Reverse 

Biased 

BLOCK 

DIAGRAMS 


o— — - o 

o - - o 


,  c^!i 

1  '  I,  dt 


1 

*1 

•i 

dt 

-ft'1) 


-(H 


-  !f  (•"‘‘,AT  -  >) 


(10) 


y  to  zero,  or  y  -  yQ  to  zero,  is  given  by 

a' 

wherein  f(a)  =  y,  Kow  since  f(a) 

'•<•>  ■  S 

x=a 

Thus 

a' 


which  is  the  basic  iteration  equation  utilized  in  the  computer  program  SAP.  It 
should  be  noted  that  the  derivative  of  the  response  function  with  respect  to  the 
adjusted  input  variable  will  be  of  concern  to  the  numerical  solution  of  the  prob¬ 
lem.  The  numerical  results  which  will  be  shown  later  have  been  calculated  using 
eq.  (11).  To  obtain  the  derivative  initially,  the  second  iterate  is  set  at  some 
fixed  ratio  of  the  first  iterate.  Typically  this  ratio  would  be  a*/a  =  0.999. 

If  multiple  zeroes  are  contained  in  the  response  function,  by  dividing  P 
by  the  first  one  found,  the  next  one  can  be  found  without  refinding  the  first  one. 

In  a  time  stepping  operation,  the  last  converged  value  of  the  adjusted  in¬ 
put  variable  can  be  extrapolated  using  the  relative  variation  of  the  new  fixed  in¬ 
put  variable  compared  to  the  last  value.  By  this  means  the  iteration  convergence 
is  enhanced.  Using  SAP  for  the  741  op  amp,  typically  three  to  five  passes  are  re¬ 
quired  to  converge  the  output  to  10  microvolts  out  of  a  10-volt  level.  If  the  in¬ 
put  impedance  is  linear  the  extrapolation  may  be  sufficiently  good  to  converge  on 
the  first  pass. 

d.  Crossed  Variables 

In  some  situations  the  output  variable  which  is  fixed  must  be  the  same 
variable  which  is  fixed  in  the  input.  In  the  case  of  the  series  block  sequence 
discussed  earlier,  that  was  not  the  ease.  There  the  voltage  was  fixed  at  the 
input  while  the  current  was  fixed  at  the  output.  Consequently,  we  could  iterate 
on  the  adjusted  input  variable  so  as  to  drive  the  fixed  output  variable  to  its 


a  _  K.aL 

FuT 

Px  +  yQ, 

P  +  a£ 

dx 

a 


=  <aP  +  y<> 


P  +  a  4^ 
dx 


2  dP. 
a  S  "  yo 


P  +  a 


dP 

dx 
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proper  value.  It  Is  easy  to  visualize  this  process  as  separate  propagation  of 
the  voltage  along  the  voltage  transfer  function  chain,  and  the  currents  along 
the  current  transfer  function  chain.  To  help  the  understanding  for  the  new 
'crossed'  situation,  the  propagation  process  can  be  looked  on  as  cross-interact¬ 
ing  the  variables  after  each  block  as  shown  in  the  sketch  below. 


Mathematically  eq.(9)  now  becomes 


e  =  P  i.  +  e 
o  c  i  o,fix 


(12) 


where  the  "voltage  cross  response  function"  is  defined  by 


P  =  oJMAX 

e  — - - 

Hi 

=  Uel  Uc2  Ue3  *  UeJMAX 
=  Uel  Uc2  Ue3  *  *  *  TeJMAX 


(for  JMAX  odd) 
(for  JMAX  even) 


(13) 

(14) 


in  which  the  Us  are  "cross  transfer  function"  on  the  voltage  or  current,  and  are 
defined  by 

(15) 


Uc3  *  V'ij 

,th 


(16) 


in  which  the  subscript  j  denotes  the  j  block.  A  "current  cross  response  func¬ 
tion"  can  similarly  be  defined  as 

(17) 


Px  =  i  /e 
c  oJMAX/eil 


The  equation  for  Px  is  essentially  the  same  as  (13)  or  (14)  with  the  e's  and  c’s 
c 

interchanged. 


Previously  the  voltages  and  currents  were  seemingly  uncoupled  as  the  com¬ 
putation  propagates  along  the  blocks.  Now  each  variable  cross  interacts  after 
each  block  as  the  cross-transfer  functions  are  called  into  play.  While  seemingly 
complicated,  this  is  actually  easy  to  incorporate  in  a  FORTRAN  program  using  a 
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sequence  of  computed  GO  TOs,  or  mapy-way  switches.  The  remainder  of  the  formalism 
is  essentially  unchanged  and  the  basic  iteration  and  convergence  aspects  are  the 
same. 


The  cross  transfer  functions  do  not  essentially  introduce  any  new  infor¬ 
mation  since  they  are  deducible  from  the  regular  transfer  functions  by  a  simple 
transformation,  namely, 


e 

ej  i 


i 

i 


(18) 


It  should  be  pointed  out  that  in  the  course  of  the  iteration  that  the  ratio  e^/i^ 
is  not  the  input  impedance  of  the  block  in  the  general  sense.  Rather  we  are  using 
the  voltages  and  currents  as  independent  variables.  Only  after  the  solution  has 
converged  correctly  as  demanded  by  the  constraint  of  eq,(4)  does  the  e^/^  ratio 
represent  the  physically  correct  input  impedance  as  seen  at  that  block  element. 


Thus,  the  iteration  process  can  be  looked  upon  as  finding  numerically  that 
coupling  of  the  voltage  and  current  variables  which  correctly  satisfies  the  phys¬ 
ical  problem. 


e.  Parallel  Blocks 


So  far  the  circuit  or  system  has  been  treated  as  a  sequence  of  blocks 
connected  in  series.  The  computational  algorithm  is  a  DO  loop  that  simply  prop¬ 
agates  the  current  and  voltage  variables  from  J  =  1  to  J  =  JMAX.  This  DO  is 
nested  in  the  outer  iteration  DO  which  acts  upon  the  adjusted  input  variable. 
Suppose  now  that  a  number  N  of  blocks  are  connected  in  parallel,  presumably  lo¬ 
cated  in  the  previous  series  sequence.  Let  us  now  see  if  we  can  devise  an  effec¬ 
tive  algorithm  for  solving  this  problem  by  a  transfer  function  method. 

Presume  that  the  input  current  in  branch  j  is  some  fraction  F.  of  the 

J 

total  available  input  current,  and  that  on  the  first  iteration  pass  the  current 
is  assumed  to  split  equally,  so  that  F^(l)  =  l/N  .  The  current  into  the  jth 
block  is  then 

bj  =  FJ(1>  b 

Knowing  these  input  currents  and  the  value  of  the  input  voltage,  the  output  volt¬ 
age  calculated  using  their  voltage  cross  transfer  functions  U  .  as  given  by  (15), 
can  be  used  to  calculate  the  average  output  voltage  '  all  the  parallel  blocks  as 


1  K 

s|Su.,  i 


j=l 


ej  ij 


(20) 
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and  the  deviation  of  the  individual  blocks  from  that  computed  average, 

4ej  -  eoj  -  l0  (31) 

Next  a  relation  indicating  how  a  block  output  voltage  can  be  related  to  a  change 
in  block  input  current  is  obtainable  by  differentiating  eq.(l5),  yielding 

dU  . 

“j  ■  “ej  +  8lf?  “lj  (22) 

By  equating  the  left  hand  side  of  (22)  to  the  deviation  (21.)  incurred  on  a  given 
iteration  pass,  the  change  in  the  current  which  should  be  propagated  through  a 
block  in  order  to  drive  it  closer  to  the  average  is  then  obtained  from  (22).  How¬ 
ever,  if  ali  the  new  input  currents  are  calculated  in  this  manner,  it  would  seem 
unlikely  that  their  sum  would  still  equal  the  available  input  current  i^  coming 
from  the  prior  block  in  the  series  sequence.  Suppose  that  the  sum  of  the  new  in¬ 
put  currents  obtained  using  the  increments  calculated  from  (2l)  and  (22)  is 

1i  "  (23) 

and  that  the  ratio  of  this  sum  to  the  available  input  current  i^  is  some  frac¬ 
tion  f, 

i 

f  -  —  (24) 

1i 

If  all  the  tentative  block  input  currents  are  divided  by  f ,  then  Kirchoff's  cur¬ 
rent  law  at  the  input  node  is  again  satisfied.  These  new  input  currents  are  then 
propagated  through  their  blocks  and  a  new  floating  average  output  voltage  is  com¬ 
puted  as  before,  and  the  whole  cycle  is  repeated  until  Ae^  -  0  • 

It  is  important  to  note  that  the  above  algorithm  retains  the  advantages 
of  the  sequential  analysis,  namelyi 

•  complete  symmetry  in  the  computational  sense 
with  respect  to  all  block  elements, 

•  no  necessary  restrictions  to  linearity,  and 

•  no  matrices  involved  in  tho  solution. 

The  parallel  block  algorithm  is  a  generalization  on  Newton's  method  where 
the  fixed  output  constraint  is  changed  to  convergence  to  an  average  output  voltage 
which  floats  during  the  iteration  process. 
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f.  Feedback  Loops 


Up  to  now  the  blocks  have  been  considered  as  propagating  input  variables 
in  one  directed  sense  from  the  input  node  to  the  output  node  of  the  circuit  or 
system.  In  this  subsection  a  feedback  loop  will  be  considered  with  the  transfer 
functions  presumed  to  have  a  directionality.  Surprisingly,  the  voltage  transfer 
functions  are  not  equal  in  this  case,  as  was  true  for  the  simple  parallel  case. 


Rather  since 


The  computational  algorithm  for  this  case  is  somewhat  like  the  parallel 
case  described  previously.  To  initiate  the  calculation  apply  eQ  and  some  frac¬ 
tion  of  i  to  the  reverse  block  and  propagate  to  find  e _ ...  and  i  ..  . 

o  r  rev, out  rev, out 

Next  define 

4e  ■  erev,out  *  el  <26) 

Use  Kirchoff's  law  and  set 

* for, in  ii  +  1 rev, out 

Calculate  a  new  eQ  using  the  voltage  cross  transfer  function,  and  ifor  out  us¬ 
ing  the  current  direct  transfer  function  for  the  forward  block.  The  voltage  out 
of  the  reverse  block  is 

erev,out  *  Ue,rev  *in 

This  equation  for  the  voltage  out  of  the  feedback  block  can  be  differentiated  to 
yield 


.  -  {u 

r,out  l  e, 


+  i 

rev  rev,  in 


e.rev 
L rev, in 


rev, in 


Equation  (27)  can  then  be  solved  for  the  new  value  of  Ai  ,  using  the  prior 

rev , in 

value  of  Ae  which  will  drive  the  voltage  difference  Ae  toward  zero.  The  condi¬ 


tion  Ae  »  0  corresponds  to  the  desired  result,  since  Kirchoff's  voltage  law  is 
then  obeyed.  The  above  process  is  recycled  until  that  condition  is  obtained. 


False  Zeroes 


«• 


The  basic  condition  used  in  this  iterative  method  for  solving  the  total 

system  aspect  of  the  problem  is  that  the  repeated  product  of  the  block  transfer 

functions,  P  ,  drives  to  zero  when  the  output  constraint  is  properly  satisfied, 
c 

Normally  this  will  happen  when 


T  •0 

c.JMAX 


(28) 


For  linear  circuits  no  problem  will  arise  if,  during  the  iteration  process,  an 
iterate  drives  the  block  into  an  extreme  condition.  If  the  block  is  non-linear 
the  same  statement  can  not  in  general  be  made.  As  a  result  an  intermediate 
may  drive  to  a  false  zero.  There  may  be  physical  cases  when  this  might  occur  val¬ 
idly,  However,  before  the  iteration  process  is  completed  the  variables  are  un¬ 
coupled  and  the  zero  is  improper.  In  such  a  case,  logic  must  be  used  in  the  block 
subroutine  to  check  whether  such  is  the  case,  and  if  so  alter  the  value  propagated 
on  to  a  satisfactory  non-zero  value.  Generally  the  logic  condition  we  use  in  this 
test  is  that  only  the  last  block  has  a  normal  zero  value  of  the  output  current  when 
the  input  to  the  block  is  non-zero. 


A  more  typical  false  zero  arises  from  the  fact  that  there  is  an  automatic 
zero  of  the  P  function  if  the  input  current  to  the  first  block,  CIN(l),  is  driven 
ro  zero  by  the  iteration  process.  In  other  words,  the  function  P  has  at  least 
one  false  and  one  true  zero  for  a  given  value  of  the  fixed  input  variable.  Such  a 
condition  is  shown  in  the  following  sketch. 


Thus,  the  iteration  driver  routine  needs  to  have  more  sophisticated  zero  finding 
strategies  than  a  simple  Newton-Raphson  method  which  steers  the  Iterate  only  on 
the  basis  of  the  derivative.  Bounds  must  be  set  to  restrict  the  iteration  from 
driving  to  the  false  zero.  The  P  function  must  also  bo  free  of  other  anoma¬ 
lies  such  as  wild  derivative  variations  in  the  neighborhood  of  the  root|  and  if 
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the  bounding  technique  is  to  work,  free  also  of  sliding  of  the  root  v/ith  the  it¬ 
erate  as  the  iteration  process  homes  in  on  the  final  value. 

2.  NONLINEAR  RESPONSE  FUNCTIONS 

In  this  section  we  will  get  into  the  heart  of  modeling  problems  relating  to 
nonlinear,  complex,  circuits.  The  prior  section  has  shown  that  using  ideas  such 
as  bi variable  propagation,  specific  algorithms  can  be  devised  which  correctly 
solve  the  case  of  circuits  consisting  of  interdependent  blocks.  This  is  essential 
if  loading  effects  such  as  fan-in  and  fan-out  are  to  be  properly  taken  into  ac¬ 
count.  Thus,  we  can  affirmatively  say  that  it  is  at  least  permissable  to  consider 
using  transfer  or  response  functions  for  the  block  elements  and  still  be  able  to 
perform  valid  system  analysis.  The  prime  questions  which  yet  remain  to  be  answered 
relate  to  the  ability  to  properly  take  into  account  general  classes  of  nonlineari¬ 
ties.  The  results  obtained  so  far  are  encouraging  as  the  results  presented  will 
show. 

a.  The  709  and  741  Operational  Amplifiers 

To  provide  an  understanding  of  the  applicability  of  the  prior  formalism  to 
nonlinear  blocks,  two  operational  amplifiers  will  be  treated  and  compared  with  one 
another  to  see  the  universality  and  the  differences  which  accrue  to  separate  devices. 
The  709  is  an  externally  compensated  monolithic  integrated  circuit  op  amp  with  a 
low-frequency  gain  of  about  25»000.  It  is  reasonably  linear  over  a  range  of  plus 
and  minus  400  txv,  and  then  saturates  hard.  The  741  is  similar  to  the  709,  with  a 
somewhat  higher  low-frequency  gain  of  28,000;  the  prime  difference  between  the  two 
is  that  the  74l  contains  its  own  compensation  circuit,  and  has  internal  balance 
points  for  offset  adjustment.  Neither  the  709  nor  the  741.  are  radiation  hardened. 

The  general  type  of  nonlinearity  which  these  op  amps  have  is  shown  in  the 
following  sketches. 
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Let  the  input  voltage  at  which  the  device  starts  to  clip  hard  be  referred 
to  as  eclip  •  The  corresponding  transfer  function  Tg  than  has  the  form  shown  a- 
bove.  The  voltage  gain  is  constant  over  the  linear  range.  Outside  that  range, 
the  output  is  constant  while  the  input  continues  to  increase,  thus  the  voltage  trans¬ 
fer  function  has  the  form  of  a  constant  divided  by  an  independent  variable  ,  the 
equation  of  a  hyperbola.  Hence,  beyond  ecllp  the  transfer  function  is  a  segment  of 
a  hyperbolic  sheet.  This  is  the  mode  of  presentation  of  saturation  class  of  nonlin¬ 
earities  as  it  is  usually  presented  in  the  textbooks.  There  is  much  more  to  it 
than  that. 

To  determine  the  time  domain  transfer  functions,  a  step  pulse  was  applied 
to  the  input,  and  the  resultant  responso  of  the  device  photographed  on  an  oscillo¬ 
scope.  By  varying  the  magnitude  of  the  step  height,  the  time  domain  “turn  on" 
transfer  functions  shown  in  Figure  2  for  the  709  and  Figure  3  for  the  74l  were  de¬ 
termined.  The  height  of  the  transfer  function  when  multiplied  by  the  magnitude  of 
the  pulse  step  indicates  directly  the  time  development  of  the  output  waveform.  The 
shape  of  the  709  surface  has  some  inte  -*esting  surprises. 

A  time  delay  or  propagation  delay  is  evident  for  very  small  pulse  amplitudes 
that  gives  rise  to  a  valley  in  the  supposedly  linear  range  of  the  709  device  charac¬ 
teristic.  This  valley  persists  for  up  to  18  ms  after  device  turn  on.  Note  that  the 
TQ  surface  for  the  7^1  does  not  show  this  effect.  Three  important  conclusions  arei 

1.  the  above  result  shows  that  nominally  linear  devices 
can  be  nonlinear  in  the  transient  sense, 

2.  the  boundary  region  between  linear  and  nonlinear  modes 
of  operation  is  not  constant  at  a  value  of  input  voltage 


Figure  2.  »-»-£ 


Figure  3.  Time  Domain  Voltage  Transfer  Function  of  the 
741  Op  Amp,  Response  to  Voltage  Step  Turo-on 


e  , .  but  rather  swings  out  to  higher  input  voltages 
clip 

at  early  values  of  time.  Roughly  the  shape  of  this 
transition  region  is  hyperbolic  in  the  (e^t)  plane, 

3,  the  step  transfer  function  rises  up  to  a  maximum  va¬ 
lue  and  remains  flat  or  constant  at  long  periods  of 
time  after  step  turn  on. 

It  is  clear  by  inspection  of  the  time  domain  transfer  function  that  a  far 
more  meaningful  understanding  of  the  device  characteristics  is  obtainable  from  it 
than  from  the  simple  DC  input-output  characteristic.  The  physical  sense  of  iner¬ 
tia  is  obvious.  Hit  the  device  with  a  stimulus  and  it  takes  up  to  50  ms  for  the 
74l  to  respond.  This  is  the  obvious  cause  of  phase  shift  in  the  device.  Also  we 
see  that  the  harder  we  hit  the  device  (which  corresponds  to  moving  out  further  a- 
long  the  e^^  axis),  the  faster  the  device  responds.  It  does  not  respond  any  hard¬ 
er  once  the  nonlinear  range  is  reached,  but  it  does  respond  faster  and  faster  un¬ 
til  the  response  is  slew-rate  limited  and  thereafter  the  rise  is  constant. 

While  this  surface  was  obtained  by  experimental  observation  of  the  device 
response  on  an  oscilloscope  and  plotting  the  results  using  perspective  drawing 
techniques,  such  a  surface  could  have  been  equally  well  obtained  by  using  a  compo¬ 
nent  level  analysis  computer  program  such  as  SCEPTRE.  Three-dimensional  computer 
plotting  routines  can  generate  a  perspective  plot  rather  easily.  The  most  impor¬ 
tant  question  that  must  be  asked  is  whether  or  not  such*  surface  is  of  use  in  per¬ 
forming  transient  analysis  at  higher  complexity  levels.  If  so,  then  we  have  a 
strictly  numerical  way  of  staging  complexity  levels  in  system  analysis.  Our  re¬ 
sults  for  the  combination  of  electrical  and  radiation  stimuli  on  tho  741  are  en¬ 
couraging, 

A  computer  generated  approximation  to  the  experimental  surfaces  are  shown 
in  Figures  4  and  5.  This  approximation  uses  three-dimensional  splines  fit  in  the 
least  square  sense. 

The  time  domain  response  function  of  the  709  demonstrates  quite  nicely 
three  general  types  of  nonlinearityi 

•  saturation  or  clipping, 

•  distortion,  and 

•  propagation  delay. 

There  arc  other  classes  of  nonlinearity  which  Figure  ?.  does  not  show,  namely, 

•  storage , 
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•  •ft  *t»PONi£  function  sun»ift  or  integrated  circuit  »o»  op  amp 


Figure  4,  Time  Domain  Voltage  Transfer 
F'unctlon  of  the  709  IC  Op  Amp 
Response  to  Step  Pulse  Turn-On 
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Figure  5.  Computer  Generated  Three  Dimensional  Computer  Plot  of  the  Step  Pulse  Voltage 
Transfer  Function  of  the  7M  Op  Amp.  This  plot  is  the  result  of  the  first 
pass  at  a  computer  fit  and  should  he  compared  with  that  shown  in  Figure  20. 


•  deadzone, 

•  hysteresis,  and 

•  instabilities,  such  as  latch-up. 

Of  these  four,  deadzone  is  very  easy  to  model  since  that  simply  is  represented  by 
a  region  in  the  three  dimensional  surface  where  the  vertical  height  T  is  zero. 
Storage  will  be  discussed  in  detail  as  it  applies  to  the  709,  Hysteresis  is  not 
a  major  effect  with  the  709  but  could  be  for  some  digital  circuits,  such  as  a 
Schmitt  trigger.  Latch-up  is  a  serious  instability  induced  in  semiconductor  in¬ 
tegrated  circuits  by  radiation.  It  is  generally  a  form  of  positive  feedback  in 
the  internal  circuit  permitted  to  happen  as  the  isolation  junction  to  the  sub¬ 
strate  becomes  conductive  due  to  the  photocurrent. 

b.  Storage  Time  Surface  of  the  709 

The  transfer  function  surface  given  in  Figures  2  and  3  were  obtained  by 
photographing  the  response  to  a  pulse  as  presented  on  an  oscilloscope.  A  typical 
waveform  is  shown  in  Figure  6,  The  input  pulse  is  in  the  linear  range. 


Figure  6,  Polaroid  Oscilloscope  Photograph  of  Input 
and  Output  Voltage  Waveforms  of  709  Op  Amp 


The  important  point  to  note  is  that  the  output  immediately  starts  to  drop  as  the 
pulse  turns  off.  In  other  words  there  is  no  storage  in  the  linear  range. 
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The  surface  as  given  in  Figure  2  represents  the  rising  part  of  the  output 
waveform.  In  the  linear  region,  it  is  seen  that  the  falling  part  is  the  same  as 
the  rising. 

When  the  input  signsil  drives  into  the  nonlinear  range,  the  output  signed 
quickly  rises  to  the  maximum  allowable  swing,  13  v,  and  clips  hard.  When  the  in¬ 
put  is  turned  off,  the  output  holds  up  at  the  same  maximum  value  for  some  time, 
which  we  will  term  the  storage  time,  t_ ,  after  that  turnoff.  Then  the  output 
drops  with  the  same  shape  that  it  fell  in  the  linear  range.  This  aspect  of  the 
device  characteristic  is  not  contained  in  the  tu”  '.on  transfer  function  surface  of 
Figure  2. 

The  length  of  time  that  the  output  remains  up  after  turn  off  of  the  input 
drive  increases  as 

•  the  magnitude  of  the  drive  pulse  increases, 

•  the  length  of  the  drive  pulse  increases, 
up  to  a  maximum  value  of  storage  time. 

By  experimentally  observing  the  correlation  of  the  storage  time  with  the 
pulse  amplitude  and  length,  the  three-dimensional  surface  presented  in  Figure  7 
was  determined. 

The  horizontal  axis  of  the  three-dimensional  drawing  is  the  magnitude  of 
the  electrical  input  signal  applied  to  the  inverting  input  of  the  ?09  operational 
amplifier,  the  axis  running  backward  is  the  pulse  length  in  milliseconds  applied 
to  the  input,  while  the  vertical  axis  is  the  storage  time  in  milliseconds. 

The  drawing  itself  was  initially  prepared  using  three  point  perspective 
grids  approximately  3  feet  square.  It  is  necessary  to  use  such  large  grids  in  the 
initial  drawing  in  order  to  retain  any  semblence  of  the  precision  inherent  in  the 
data.  The  use  of  the  grids  is  nicely  described  in  the  book  by  McCartney*. 


*T.  0.  McCartney,  Precision  Perspective  Drawing.  McGraw-Hill  Book  Company, 

New  York,  1963*  The  grids  are  obtainable  from  Perspective,  Inc.,  4400 

Seventh  Avenue,  Seattle,  Washington.  ^ 

f 


I 


25 


Figure  7  presents  at  a  glance  the  dependence  on  the  input  voltage  e,  and 

pulse  length  r  of  the  storage  time  t  *  The  especially  interesting  things  to 
p  s* 

note  at  this  point  arei 

•  for  short  pulses,  large  signals  can  be  applied  without 
storage  resulting, 

•  for  long  pulses,  only  a  small  excursion  beyond  the 
linear  range  results  in  maximum  storage, 

•  the  roughly  hyperbolic  shape  of  the  iso-storage  curves 

or  cuts  through  the  surface  parallel  to  the  (e^„Tp)  plane. 

The  first  point  is  of  theoretical  importance  since  it  relates  to  the  equivalence 
of  step  pulse  and  impulse  analysis  of  a  circuit. 

The  storage  time  obtained  from  the  storage  time  surface  is  actually  used 
in  conjunction  with  what  we  will  term  the  "turn  off  response  surface,"  a  surface 
representing  the  decay  characteristic  of  the  output  waveform  after  pulse  turnoff. 
This  surface  is  represented  in  Figure  8,  The  surface  has  three  essential  zonesi 

•  exponential  cylindrical  -  the  linear  decay  region, 

•  hyperbolic  cylindrical  -  the  region  where  the  pulse 
continues  out  to  the  storage  time  Tg  at  full  ampli¬ 
tude  before  starting  to  drop,  and 

■  hyperbolic  exponential  -  the  drop  from  saturation 
for  input  stimuli  exceeding  the  linear  range. 

The  information  obtained  from  Figure  7  is  utilized  in  the  computer  program  SAP  to 
locate  the  line  of  demarcation  between  the  hyperbolic  cylindrical  and  the  hyper¬ 
bolic  exponential  zones.  In  other  words,  that  line  of  demarcation  is  a  moving 
line  rather  than  a  fixed  unchanging  line  for  a  given  input  pulse.  The  particular 
location  given  in  Figure  8  corresponds  approximately  to  the  case  of  maximum  stor¬ 
age  time  at  the  signal  level  e^=  2mv.  At  a  signal  level  e^«  0,8  mv  it  is  seen 

that  the  storage  time  t  -  2  ms.  Then  by  inspection,  a  storage  time  of  t  *  2  ms 

s  s 

corresponds  to  a  pulse  length  t  -  4  ms.  Thus  the  turn  off  response  surface  has 
been  drawn  for  the  case  of  an  input  pulse  4  ms  long.  What  the  computer  look-up 
on  the  the  storage  time  surface  does  is  provide  a  displacement  of  the  line  of  de¬ 
marcation  to  the  proper  position  corresponding  to  the  particular  applied  waveform 
The  degree  of  success  obtained  by  this  technique  is  shown  later  in  the  computer 
output  waveforms  of  Figure  11. 
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Figure  8*  709  Turn  Off  Response  Surface 


c.  Artificial  Terms  in  Transfer  Functions 


One  attribute  of  the  bivariable  propagation  technique  that  might  not  be 
obvious  is  that  it  requires  a  functional  dependence  of  the  output  variable  on  the 
innut  variable.  This  is  needed  to  steer  the  iteration  process  which  drives  the 
adjusted  input  variable  to  the  proper  value  determined  by  the  total  system  config¬ 
uration.  Now  for  digital  circuits,  the  output  is  constant  over  a  wide  range  of 

variation  of  the  input  voltage,  such  that  a  plot  of  P  ,  the  total  system  current 

c 

response  function,  might  be  expected  to  have  regions  which  are  essentially  parallel 
to  the  adjusted  input  variable  axis.  Consequently  a  Newton's  method  extrapolation 
to  the  next  iterate  would  not  operate.  A  linear  interpolation  method  might  be  sat¬ 
isfactory  since  it  can  broaden  the  search  range. 

Another  way  to  proceed  shows  unexpected  and  extremely  important  useful, 
and  in  fact  mandatory,  aspects  of  our  time  domain  transient  calculations  using 
iteration  on  a  time  stepping  basis  with  transfer  functions. 


( 1 )  Current  Transfer  Functions 


Up  to  now  only  surfaces  or  drawings  showing  the  voltage  transfer 
function  have  been  presented.  Yet  the  bivariable  propagation  method  also  needs 
current  transfer  functions.  The  current  transfer  function  holds  the  key  to  estab¬ 
lishing  a  satisfactory  iteration  convergence  mechanism.  A  first  guess  at  an  out¬ 
put  current  would  set  iQ=  e^R^  ,  where  eQ  is  the  output  voltage  established  by 
Tg » the  voltage  transfer  function,  and  is  the  load  resistance.  For  the  sake  of 
simplicity  of  the  argument,  suppose  that  the  transition  process  of  a  flip-flop 
does  not  depend  on  e^  *  In  that  case 


where 


Vo 


"o.hi 


or 


T  - 

e 


*o,lo 


Nowevee,  now  there  is  no  explicit  dependence  of  the  output  variables  on  any 
change  of  the  inout  variables  except  for  the  high-low  transition.  As  a  remedy, 
presume  that  the  flip-flop  has  an  input  resistance  R ,  and  that  we  think  of  it  as 
an  external  shunt  resistor  block.  Connect  the  output  node  of  the  input  resistor 
to  the  outout  node  of  the  flip-flop  by  a  dotted  line  that  passes  current  but  not 
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voltage 

voltage 


•  Then  if  the  new  value  of  is  not  the  correct  value  the  given  input 
e ^  and  the  resistor  R ,  the  current  difference  Ai  will  pass  the  shunt 


resistor  into  the  flip-flop  and  the  output  so  that  the  output  current  is 

i  -  Ai  +  fo  (29) 

This  is  not  the  correct  current  physically  unless  Ai  -  0.  However,  the  output 
current  does  now  depend  explicitly  on  the  input  current,  and  hence,  the  bivaria¬ 
ble  propagation  and  iteration  procedure  can  again  operate  regarding  current  as 
the  adjusted  input  variable.  If  we  imagine  the  constraint  to  be  a  high-impedance 
voltmeter  connected  across  R^  ,  then  the  iteration  process  will  drive  the  error 
current  Ai  to  zero.  Then  the  current  transfer  function  is  the  physically  correct 
transfer  function  for  the  flip-flop,  and  the  correct  current  feeds  the  load  resis¬ 
tor.  Thus  the  transfer  functions  may  contain  an  artificial  component  to  assist 
numerical  convergence  so  long  as  that  term  drives  to  zero  when  the  correct  solu¬ 
tion  is  obtained. 

(2)  Dynamical  Delay 

Here  let  us  explore  one  further  crucial  but  not  obvious  aspect  of  try¬ 
ing  to  iterate  around  a  block  element  containing  dynamical  time  delay.  Suppose 
that  an  input  stimulus  is  applied  and  that  the  correct  coupling  of  the  input  vai> 
iables  has  not  yet  been  obtained.  For  example,  suppose  that  an  input  voltage  with¬ 
in  the  linear  range  of  the  ?4l  op  amp  is  applied.  By  inspection  of  Figure  3,  the 
Tg  surface,  it  is  evident  that  a  significant  time  passes  before  the  output  responds 
to  the  stimulus.  This  time  may  be  several  milliseconds.  Suppose  that  the  time 
step  interval  is  say  a  fraction  of  a  millisecond.  Then  many  time  steps  pass  before 
the  out out  or  condition  of  the  circuit  has  been  changed  by  the  iteration  process 
at  the  input  of  the  device.  How  then  can  the  basic  iteration  process  work? 

We  believe  the  answer  again  lies  in  the  use  of  two  rather  than  one 
chain  of  transfer  functions  to  propagate  information.  For  the  case  of  the  op  amps, 


the  current  transfer  function  is  obtained  using  a  similar  procedure  to  that  used 
above  for  the  flip-flop.  An  input  resistor  R  acts  as  a  shunt  block  element.  The 
Tg  transfer  function  provides  the  gain  and  the  dynamics,  and  a  source  impedance 
Rg  is  in  series  with  the  load  resistance  R^  . 


Suppose  that  the  iteration  process  has  not  yet  provided  the  correct  coupling  of 
the  input  variables  to  the  block.  Then  an  error  current  Ai  as  before  will  drive 
past  the  input  resistor,  through  the  gain  element,  and  through  to  the  output. 
Thus,  the  output  current  is  as  before 

i  -  Ai  +  8o  (30) 

O  n  i  n 


where 


(31) 


and 

e  -  T  e. 
o  el 

The  key  result  is  contained  in  (30)  since  the  second  term  contains  the  block  dy¬ 
namics  from  the  time  domain  transfer  function  surface  and  is  delayed  properly; 
however,  the  error  current  Ai  is  not  delayed  and  propagates  immediately  through 
the  block  and  steers  the  iteration  process. 


3.  INPUT  WAVEFORM  DECOMPOSITION  AND  OUTPUT  SUPERPOSITION 

The  major  problem  relating  to  nonlinear  system  analysis  is  loss  of  the  vali¬ 
dity  of  the  principle  of  superposition.  Yet  as  we  will  show  shortly,  it  is  pos¬ 
sible  to  obtain  reasonably  accurate  results  using  the  type  of  nonlinear  time  do¬ 
main  transfer  functions  presented  earlier  for  certain  classes  of  nonlinearity. 

For  other  types  of  nonlinearities,  the  results  are  less  accurate. 

a.  Step  Pulse  Decomposition 


Let  an  arbitrary  waveform  e(t)  be  applied  to  a  block.  Suppose  that  the 
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time  stepping  of  the  computer  program  samples  that  waveform  at  times  tQ,  t^ ,  tg, 
etc.,  obtaining  voltages  eQ,  e^,  eg,  etc.  If  just  a  step  pulse  of  magnitude 
say  had  been  applied,  then  the  output  at  subsequent  time  steps  could  be  obtained 
directly  from  the  time  domain  transfer  function  surface  T  by  evaluating  its  val- 
ue  at  time  increments  measured  from  time  of  turn-on  t^  and  multiplying  that  by  the 


magnitude  of  the  step  e^  •  Then  the  same  procedure  could  be  followed  for  the  next 
step  pulse  e2  and  so  forth.  To  prevent  overdriving  the  input,  since  the  earlier 
step  would  also  be  on,  it  is  necessary  to  turn  off  step  at  the  next  time  step 
tg.  This  is  done  be  applying  the  turn-on  of  the  negative  e^  ,  and  add  its  response 
to  the  output.  The  decomposition  of  the  input  waveform  would  look  as  sketched  be¬ 
low. 


Taking  eQ  -  0  ,  the  output  at  time  step  tg  would  be 

•«(Y  -  Te(el- W  *1  ■  VvYV  el  + 


VvW  e2 


Similarly  at  time  step  t^  , 

eo(t3}  "  Te(WV  el  “  Te(VW  ei.  + 


VVV’V  e2  -  Te(e2,t3-tfa'  e2  + 

°3 


(32) 
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By  insDectior.  of  the  T  surface  for  the  709  or  the  741,  it  is  seen  that  at  time 

e 

zero  the  vertical  height  is  zero.  Thus,  the  last  term  in  (32)  is  zero,  or  at 
least  very  small.  Further,  it  can  be  seen  that  the  other  terms  in  (32)  have  the 
input  voltage  at  one  time  step  multiplying  the  difference  in  the  value  of  the 
transfer  function  evaluated  one  time  step  apart.  That,  however,  is  just  the  value 
of  the  time  derivative  of  the  transfer  function  surface  evaluated  at  the  value  of 
the  input  voltage  and  the  time  since  step  turn  on,  multiplied  by  the  magnitude  of 
the  time  step.  Hence,  (32)  becomes 

e  (t»)  -  e,  ^e  dt  +  e9  f^e  dt  (33) 

J  at  I  .  .  2  at  . 

®l,t3~tl  e2»t3“t2 

Or,  passing  to  the  general  case, 


e  ft)  -  S  e, 

0  j  3  at 


J  ^,(j-j)dt 

where  J  is  the  latest  time  step  index  value.  Equation  (34)  is  the  basic  form  of 


the  convolution  principle  or  the  principle  of  superposition  which  nas  been  used 
in  the  program  SAP  to  compute  the  output  waveforms  which  will  be  presented  herein. 


While  the  above  mathematics  is  mandatory  in  order  to  perform  a  computer  analy¬ 
sis,  it  does  not  give  us  any  direct  insight  into  what  is  happening  on  the  transfer 
function  surface.  It  is  not  difficult  to  obtain  an  understanding  using  that  sur¬ 
face  which  is  very  helpful  in  treating  transient  problems. 


Suppose  (34)  is  interpreted  in  terms  of  either  the  709  or  the  74l  voltage 
transfer  function  surface,  Figure  2  or  3*  Let  the  first  pulse  decomposition  ele¬ 
ment  e^  be  referred  to  as  a  partition.  Then  the  output  in  time  following  its 
turn  on  is  mentally  visualized  by  coming  out  laterally  on  the  axis  to  the  va¬ 
lue  of  input  voltage  e^  and  then  imagining  the  partition  moving  on  isovoltage 
portion  of  the  surface  forward  in  time  parallel  to  the  time  axis.  That  partition 
continues  to  contribute  to  the  output  until  it  reaches  the  nortion  of  the  surface 
where  the  time  derivative  of  the  surface  goes  to  zero. 


The  next  partition  moves  back  along  that  isovoltage  part  of  the  surface  cor¬ 
responding  to  e2  and  again  contributes  until  the  time  derivative  of  that  part  of 
the  surface  vanishes.  Convolution  is  just  the  continual  running  summation  of  suc¬ 
cessive  partitions  contributions  to  the  output.  Such  a  process  is  theoretically 
justifiable  only  for  linear  elements. 
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b.  Computed  Results  for  the  709  and  the  741 

With  the  last  statement  firmly  in  mind,  let  us  now  examine  some  reults. 
First  with  a  1.0  mv  step  pulse  applied,  and  using  0.1  ms  time  steps,  the  computed 
output  voltage  is  shown  in  Figure  9.  The  input  waveform  is  shown  in  the  top  half, 
and  the  computed  output  in  the  bottom  half.  From  the  figure  it  is  immediately  ev¬ 
ident  that  superposition  can  be  used  with  reasonably  good  validity  for  saturation 
class  of  nonlinearities. 

To  most  easily  understand  the  way  the  constant  output  limit  is  achieved 
in  the  calculation,  think  how  the  partitions  moving  back  along  isovoltage  trajec¬ 
tories  on  the  T  surface  contribute  to  the  output.  By  inspection  of  the  surface 
e 

in  Figure  2,  it  is  seen  that  for  e^  -1.0  mv  it  takes  about  4  ms  for  the  output 

to  saturate  and  for  T  -*  0.  The  input  waveform  in  Figure  9  is  not  a  step  but 

0 

takes  about  1  ms  to  turn  on.  The  partitions  for  0  $  e^  £1.0  mv  travel  along 
the  valley  portion  of  the  surface.  Those  in  the  linear  range  contribute  for  as 
long  as  20  ms  from  time  zero.  The  partitions  above  the  linear  range  contribute 
for  shorter  time  intervals.  The  reason  the  output  holds  up  at  a  nice,  relatively 
constant  value  is  that  as  the  first  partitions  reach  the  flat  hyperbolic  sheet 
and  cease  to  contribute,  the  fact  that  the  waveform  is  till  turied  on  means  that 
subsequent  partitions  are  starting  to  climb  up  the  surface  thereby  maintaining 
the  output  constant  in  the  steady  state. 

The  variation  in  the  output  voltage  in  Figure  9  is  about  v  in  10  vj 
thus  the  superposition  principle  as  applied  using  (34)  is  valid  to  %  for  this 
case. 


c.  Computation  of  Storage  Effects 

Earlier  the  fact  that  storage  phenomena  are  not  included  in  a  turn  on 
surface,  led  to  the  portrayal  of  the  storage  time  surface  and  the  turn  off  sur¬ 
face  in  Figures  7  and  8  for  the  709  op  amp.  Here,  the  way  this  is  taken  into 
account  relevant  to  the  superposition  tactics  of  eq.(34)  will  be  presented. 

Suppose  that  a  waveform  is  applied  which  drives  into  the  nonlinear  range 
above  the  input  clipping  voltage  e^^.  As  before  pulse  decomposition  is  applied  •  ( 

and  a  sequence  of  partitions  travels  up  the  turn  on  surface.  Now  however  when 
the  waveform  turns  off,  logic  in  the  computer  program  determines  how  long  the  volt¬ 
age  had  held  up  at  the  levels  corresponding  to  the  values  at  which  the  partitions 
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were  generated  at  the  various  time  steps.  Knowing  these  equivalent  varying 
amplitude,  varying  length  pulses,  which  constitute  the  input  waveform  as  shown 
below j 


]’!e  then  are  in  a  position  to  calculate  the  total  storage  time  by  the  following 
computer  procedure: 

•  decompose  input  into  separate  saturating  pulses, 

•  look  up  storage  time  for  each  pulse  (this  depends 
on  pulse  amplitude  and  length)  , 

•  calculate  turn  off  transfer  function, 

•  combine  individual  responses  using 


e0<*>  ■ 

J  f  \ 


time  step 
increments 


storage  time  since 
time  pulse  turn  off 


The  reasoning  behind  eq.(35)  is  somewhat  different  than  simple  superposition  by 

virtue  of  the  presence  of  the  e., .  term  in  the  multiplier  of  the  transfer  func- 

J*  ^ 

tion.  The  easiest  way  to  understand  the  term  e.  -  e.,.,  is  to  regard  it  as  a  lln- 

0  J*  '■ 

ear  interpolation  of  the  effect  of  different  pulse  heights.  For  example,  if 

is  small,  say  about  zero,  then  we  want  the  maximum  charge  storage  term  to  be 

brought  in  from  the  saturating  uulse  e.  j  whereas,  if  e^ .  «e. ,  we  need  only  a 

3  l+i  J 

small  contribution  from  that  pulse. 

To  see  how  successful  or  otherwise  this  approach  is,  compare  the  results 
shown  in  Figure  10  calculated  using  eq.(34)  alone  with  those  in  Figure  11  which 
was  calculated  using  both  (34)  and  (35)#  In  other  words,  Figure  10  used  just  the 
turn  on  transfer  function  surface  while  Figure  1 1  used  the  storage  time  surface 
and  the  turn  off  surface  in  addition. 
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VNIN  INPUT  NODE  VOLTA 


SAP  DETERMINATION  OF  709  RESPONSE 


TIME  IN  MILL  I SECONOS 


Figure  10,  Turn  off  Portion  of  ?09  Response  Calculated  With 
out  uso  of  Turn  off  Surface  for  Storage  Effect 


U!«0#/S< 
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It  is  apparent  from  Figure  ii  that  the  storage  effect  has  been  calculated 
with  a  modicum  of  success.  The  variation  of  the  output  in  the  supposedly  constant 
saturation  region  is  +  1  v  out  of  about  10  v.  It  thus  appears  possible  to  use  a 
version  of  the  principle  of  superposition  and  obtain  results  of  about  10 %  accuracy, 
for  charge  storage  class  of  nonlinearity. 

The  results  which  are  shown  in  Figure  11  used  the  computer  generated  fit  to  the 
storage  time  surface  that  is  shown  in  Figure  7.  Figures  10  and  11  show  the  calc¬ 
ulated  turn  off  of  a  1«0  mv  pulse  whose  rise  is  given  in  Figure  9« 
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SECTION  III 


GATHERING  THE  EXPERIMENTAL  DATA 


The  experimental  information  on  the  radiation  sensitivity  of  the  devices  was 
taken  during  three  trips  to  Kirtland  Air  Force  Base  and  Sandia  Base  in  Albuquerque, 
New  Mexico,  during  April  and  May,  1971* 

The  fixtures  used  for  the  flash  X-ray  exposures  at  AFWL  consisted  of  sockets 
affixed  on  one  side  of  one-half  of  a  lead  brick#  A  hole  was  drilled  diagonally 
through  the  brick  large  enough  for  the  cable  circuit  cable  drivers  and  Tektronix 
CT-2  current  transformers  which  were  mounted  in  a  Pomona  chassis  box  on  the  rear 
of  the  brick.  Thus,  the  lead  length  was  approximately  Z\  inches  to  the  output 
coupling  circuitry.  The  second  NAND  gate  in  the  9704  structure  was  used  a3  the 
load  for  the  gate  under  test.  Thus,  the  load  is  simultaneously  irradiated  in  good 
simulation  of  a  weapon  burst. 

The  n on-irradiated,  electrical  measurements  on  the  devices  were  taken  at  Stewart 
Research  Enterprises  In  Los  Altos,  California  using  the  following  measurement  equip¬ 
ment  ensemb.'ei 

Pulse  Generators  -  Data  Pulse  101,  E-H  131,  G.R.  1217-C 

Oscilloscopes  -  Tektronix  531  and  535  with  CA  and  1S1 
(Sampling)  plug-ins. 

Digital  Voltmeter  •  HP3459A 


X-Y  Recorder  -  Moseley  Model  2 

For  the  fast  pulse  measurements  on  the  gate  circuits,  the  X-Y  recorder  was  used  to 
record  the  DC  voltages  from  the  1S1  sampling  plug-in.  For  the  slower  pulse  measure¬ 
ments  on  the  operational  amplifiers,  Polaroid  pictures  were  taken  of  the  oscilloscope 
waveforms. 


The  conditions  used  during  the  741  operational  amplifier  measurements  at  the 
Kirtland  flash  Xray  (FXR)  werej 

V  -  +  15.00  volts 

CC 

-  820  ohms  (on  both  inverting  and  non-inverting  inputs) 

Rf  -  50  megohm 


«L  ' 


to 


2  kilohm 


During  the  measurements  at  the  Sandia  pulse  reactor  (SPR)  the  long  cable  runs 
necessitated  lowering  the  feedback  resistor  in  orde-A  to  achieve  stability. 

1.  OPERATIONAL  AMPLIFIER  TEST  CIRCUITS 

a.  Sine  './ave  -  Non-Radiation  Transfer  Characteristic 

The  electrical  input  -  output  transfer  characteristics  were  made  using 
the  circuitry  given  in  the  block  diagram  of  Figure  12a,  and  specific  connections 
to  the  op  amp  shown  in  Figure  12b.  The  test  sequence  utilized  was: 

1.  Insert  op  amp  in  test  socket. 

2.  Adjust  offset  null  potentiomenter  for  zero 
volts  output. 

3*  Increase  oscillator  output  until  op  amp  output 
displays  limiting. 

4.  Photograph  transfer  characteristic  with  Polaroid  camera. 

b.  Op  Amp  Response 

The  pulse  response  of  the  op  amps  were  made  with  the  block  diagram  shown 
in  Figure  12c.  The  test  sequence  consisted  of  the  following  steps: 

1.  Adjust  offset  null  potentiometer  for  zero  volts  at  output. 

2.  Adjust  attenuator  and  pulse  generator  to  provide  desired 
input  signal,  and 

3.  Observe  and  photograph  during  reactor  pulse  the  waveform  of 
the  output  signal. 

2 .  DIGITAL  LOGIC  GATE  TEST  CIRCUITS 

a.  Transfer  Characteristics  -  Before  and  After  Reactor  Pulse 
The  transfer  characteristics  of  the  gates  were  obtained  using  a  curve  tracer 
connected  as  shown  in  Figure  1%,  The  measurement  steps  are: 

1.  Note  that  the  oscilloscope  is  referenced  to  +5  v  for 
this  measurement, 

2.  Display  Base  voltage  (0 . 5  v/div)  vs  Collector  voltage 
(0.5  v/div)  as  a  plot  of  eQ  vs  e^. 


a)  Input -Output  Trans¬ 
fer  Characteristics 


Tektronix  575 
Curve  Tracer 


Tektronix  575 
Curve  Tracer 


b) 


Input  Impedance 


Tektronix  575 


Curve  Tracer 


Fipure  13.  Circuits  Used  for  Measurement  of  9704  NAND  Gate 
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3.  Set  collector  sweep  at  minimum  and  negative  polarity 
with  the  dissipation  limiting  resistor  set  at  100  ohms, 

4.  Hold  the  "zero  current"  switch  in  the  open  or  zero 
current  position  with  a  rubber  band  (this  disables  the 
normal  base  step  generator). 

5.  Increase  the  collector  sweep  till  e^  sweeps  from  +5  v  to 
zero,  and 

6.  The  transfer  characteristics  is  now  observed  showing 
shifts  in  the  gate  ON  or  OFF  voltage,  and  the  transition 
voltage. 

b.  Input  Impedance 

The  gate  input  impedance  was  obtained  with  the  circuit  shown  in 
Figure  13b,  and  the  following  measurement  steps* 

1.  For  this  measurement,  the  oscilloscope  is  again  referenced 
to  i-5  v. 

2.  Change  the  vertical  display  to  collector  ma. ,  (0.2  ma/div) 

3.  The  display  is  now  input  current  vs.  input  voltage. 

4.  Look  for  excessive  leakage  current  near  +5  v  input,  shifts 
in  transition  voltage,  and  current  drawn  at  zero  input 
voltage. 

c.  Output  Impedance 

The  impedance  test  sequence  used  the  connections  shown  in  Figure  13c, 
and  the  following  measurement  steps* 

1 .  The  oscilloscope  is  now  referenced  at  ground  instead 
of  +  5  v, 

2.  Set  Collector  Sweep  at  minimum  required  with  positive 
polarity. 

3.  Set  the  zero  to  the  lower  left  and  bottom  of  the  display 
with  the  positioning  controls. 
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4.  Change  the  vertical  display  to  20  ma/div. 

5*  Increase  the  Collector  Sweep  until  eQ  sweeps  from  zero  to 
approximately  if-  or  2  v,  taking  care  that  the  pattern  does 
not  change  due  to  device  overheating,  and 

6.  Observe  the  display  for  change  in  saturation  voltage. 

d.  Gate  Time  Domain  Response  During  Reactor  Pulse 

Circuit  configuration  used  for  the  gate  pulse  response  during 
irradiation  is  given  in  Figure  13d. 


SECTION  IV 


PROCESSING  OF  EXPERIMENTAL  DATA 


The  techniques  used  for  processing  the  raw  data  into  the  final  function  sur¬ 
faces  underwent  an  evolutionary  change  during  the  course  of  the  research.  The 
first  method  utilized  hand  made  perspective  drawings,  and  was  applied  to  the 
electrical  and  radiation  response  data  for  the  741  op  amp.  This  technique  offers 
one  principal  advantage--  the  creation  of  the  final  surface  is  an  act  of  decision 
between  noisy  data  from  different  test  devices,  and  different  experimental  situa¬ 
tions.  Judgement  can  be  used  to  weigh  the  significance  of  a  local  anomaly  as 
compared  to  a  real  trend.  As  a  result  the  initial  surfaces  which  were  evolved 
looked  "good"  in  the  subjective  sense.  However,  the  large  amount  of  time  required 
to  process  the  data  by  this  approach  makes  an  alternative  mandatory. 

Thus,  the  decision  was  made  to  resort  to  computer  processing  techniques  ex¬ 
clusively  for  the  response  surfaces  of  the  9?04  NAND  gate.  This  required  extension 
of  the  initial  machine  programs  which  used  least  square  fitting  of  three  dimensional 
cubics  over  each  segment  of  a  basic  20  by  20  fitting  grid.  The  cubics  are  matched 
in  terms  of  function  and  derivative  value  in  the  spline  sense  at  the  grid  inter¬ 
stices  «  The  extension  required  writing  a  linear  interpolation  routine  to  fill  in 
regions  of  the  data  space  which  lacked  sufficient  experimental  data.  Then  ether 
routines  were  adapted  that  performed  wild  pointing  and/or  smoothing  or?  the  data 
set.  The  number  of  smoothing  passes  varied  in  the  processing.  The  effect  it  has 
on  the  result  will  be  shown  later. 

While  machine  processing  is  certainly  much  easier  and  faster  when  the  routines 
that  do  the  real  work  are  written  and  available,  judgement  and  choice  really  can 
not  be  forgotten.  Just  how  much  smoothing  is  "right"  in  a  certain  sense  is  an 
esthetic  question,  rather  than  a  technical  one.  Let  us  now  see  why  as  we  look  at 
different  methods  and  their  results. 

1 .  RESPONSE  FUNCTION  SURFACES  OF  THE  ?4l 

Figure  3  shows  the  voltage  transfer  function  surface  of  the  741  with  respect 
to  step  pulse  inputs.  This  surface  is  much  better  behaved  than  the  similar  surface 
for  the  709  which  was  presented  as  Figure  2  earlier  in  this  report.  Yet  there  are 
obvious  similarities  between  the  two.  This  drawing  shows  the  faster  response  of 
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the  device  as  it  is  driven  hard  into  the  non-linear  range  by  the  boundary  between 
the  hyperbolic  sheet  and  the  rising  front  portion  moving  to  earlier  and  earlier 
times  at  high  signal  amplitude *  This  surface  was  taken  with  the  device  mounted 
in  the  fixture  made  for  testing  at  the  Kirtland  FXR*  The  conditions  of  the  measure¬ 
ments  are  i 

V  -  +  15*00 

C  0 

R,  -  820  ohms  (on  both  inverting  and  non- 
1  inverting  inputs) 

Rj  ■  50  megohm 
-  2  kilohm 

The  waveforms  were  photographed  on  a  Tektronix  535  oscilloscope*  The  pulses  were 

supplied  by  a  General  Radio  1217-C  pulser  driven  at  about  5  Hz  pulse  repetition 

frequency .  Of  significant  interest  to  this  modeling  activity  is  the  very  small 

storage  of  the  741  as  compared  with  the  709 »  at  least  prior  to  neutron  irradiation* 

After  neutron  irradiation,  storage  is  evident  as  shown  in  the  Figures  86  and  87 

of  Appendix  ,  where  the  top-hat  or  butterfly  effect  of  the  irradiated  741 s  is 

discussed*  We  will  use  a  three-dimensional  computer  fit  of  splined  cubics  to  the 

T  surface* 
e 

Figure  14  is  the  radiation  transfer  function  of  the  741  as  measured  using  the 
AFWL  Febetron.  This  surface  is  more  of  an  impulse  response  surface,  as  compared 
to  step  response  of  Figure  3*  The  vertical  axis,  labeled  T  ,  is  the  ratio  of  the 

Y 

output  voltage  to  the  log^cp,  where  <p  is  essentially  y,  in  rad/sec.  Logarithmic 
time  and  dosage  axis  are  used  because  of  the  large  ranges  in  these  variables*  It 
is  evident  that  the  741  is  a  fast  device  indeed  in  terms  of  radiation  effects; 
whereas,  the  response  to  electrical  stimulus  is  relatively  slow.  The  radiation 
effects  are  seen  on  50  ns  time  scales,  whereas  the  T  surface  shows  phenomena  on 
millisecond  or  tens  of  millisecond  time  scales*  This  is  significant  in  assessing 
the  effects  of  inverse  feedback  on  the  radiation  reponse*  From  the  form  of  the  two 
surfaces,  we  expect  inverse  feedback  to  hardly  reduce  the  fast  nanosecond  transient 
at  all,  but  to  significantly  reduce  the  long  time  hang-up  of  the  device  due  to 
radiation* 

It  is  evident  by  inspection  of  Figure  14  that  the  radiation  response  does  not 

Q 

scale  simply  with  dosage.  At  low  dosages,  say  less  than  3  x  10  ,  the  response  in¬ 
creases  until  the  positive  peak  is  saturated  at  the  supply  voltage.  It  takes  another 
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order  of  magnitude  of  radiation  to  saturate  the  negati'"  peak.  Also  interesting 
is  the  way  the  surface  recedes  on  the  rising  cliff  part  at  intermediate  dosages. 
This  shows  up  most  clearly  in  the  drawing  by  the  way  the  1  ns  isochronal  (constant 
time  line)  plunges  downward.  The  pt  a  hang-up  time  also  increases  at  large 
dosages.  Observe  this  by  noticing  how  the  far  back  top  edge  angles  backward  with 
respect  to  the  300ps  and  1  ms  and  3  ms  isochronals.  A  small  flat  porch-like 
structure  is  evident  on  the  rising  cliff  at  high  dosage.  This  may  be  due  to 
structure  in  the  FXR  pulse,  although  that  would  seem  unlikely  so  far  in  time  along 
the  response  surface. 

The  fined  response  function  surface  for  the  74l  is  based  on  data  taken  in 
May  1971  at  the  Sandia  pulse  reactor  in  Albuquerque.  In  order  to  show  the  pheno¬ 
mena  occurring  at  high  dosage,  three  separate  sections  have  been  drawn.  Again  log 
time  and  log  dosage  eixis  have  been  used.  The  vertical  axis,  T^,  is  the  same  as 
for  Figure  14.  The  dosage  is  integrated  neutron  flux  with  energy  more  than  10  kev. 
The  pulse  length  of  the  reactor  is  about  50  -  100  ms,  and  a  typical  pulse  is  shown 
in  Figure  85  of  Appendix  I.  A  phenomenon  evident  in  Figure  15  is  the  dramatic 
destruction  of  the  device  at  high  dosages,  as  evidenced  by  the  fall  off  in  T 

1  O  ^ 

above  10  J ,  Thus,  we  see  that  this  type  of  representation  of  a  devices  radiation 
transient  response  at  the  same  time  tells  us  something  about  the  permanent  degra¬ 
dation. 

Figure  15a  shows  the  front  portion  of  the  high  dosage  transient  response. 

Note  that  at  high  dosage  the  device  responds  faster,  as  shown  by  the  isochronals 

12 

climbing  upward  on  the  front  cliff.  Above  about  1.4  x  10  nvt,  a  valley  occurs 
after  the  rising  cliff  part  of  the  waveform.  This  valley  increases  in  depth, 
reaches  a  minimum,  and  then  starts  coming  up  again,  both  with  respect  to  time  and 
dosage. 

Figure  1  54  shows  the  dropping  part  of  the  transient  waveform  toward  the  mini¬ 
mum  of  the  valley.  Note  the  porch  like  structure  evident  at  about  1 50  as.  At 
high  dosage,  degradation  is  also  clearly  evident  on  the  minimum  of  the  valley. 

Figure  15c  shows  the  rising  positive  portion  of  the  transient  response  after 

the  valley,  and  how  tnis  is  effected  at  high  dosage  by  the  device  destruction  or 

1 2 

degradation.  Above  about  5  x  10  ,  the  pulse  hang-up  time  increases  greatly 

( remember  this  is  a  log  time  scale),  extending  out  to  about  40  ms.  The  extent  of 
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.ation  Transfer  Function  Surface  for  the  741  Operational  Amplifier  as 
dned  with  the  Sandia  Pulse  Reactor.  Note  Degradation  at  High  Dosage 


Radiation  Transfer  Function  Surface  of  the  7^1  Op  Amp  Taken 
at  the  SPR  with  the  Front  Surface  Cutaway  Showing  Surface 
Dropping  Toward  a  Valley.  Note  Degradation  at  High  Dosage. 


Radiation  Transfer  Function  Surface  of  the  7l 
SPR  with  the  Front  Ridge  Cutaway  Showing  the 
to  the  Final  Ridge.  Note  Degradation  at  Higl 


this  increase  in  the  pulse  hang-up  time  will  be  more  evident  in  the  later  computer 
plots  where  the  perspective  view  is  rotated  so  that  rear  portion  is  visible. 


2.  HOW  THE  SURFACE  DRAWINGS  WERE  HADE 

The  drawings  of  Figure  15  were  not  made  by  a  computer.  They  were  drawn  using 
three  point  perspective  grids  at  four  times  normal  size.  The  actual  dimensions 
of  the  original  artwork  of  the  drawing  is  3  feet  high  by  4  feet  wide.  This  per¬ 
mits  reasonable  accuracy  to  be  obtained  in  plotting  the  experimental  data.  Normally 
five  straight-edges  are  required  to  translate  a  point  from  the  coordinate  plane  to 
a  point  in  space  on  the  drawing.  The  data  from  the  original  pictures  usually  does 
not  correspond  to  nice  even  values  of  time  or  dosage.  Hence,  the  isochronals  and 
isodose  lines  are  created  by  interpolation  between  the  actual  experimental  results. 
To  a  certain  extent  this  act  of  interpolating  is  an  exercise  in  judgement.  This  is 
beneficial  since  nuances  of  individual  devices  can  be  weighed  one  upon  another. 
However,  in  actuality  there  was  much  more  commonality  than  difference  amongst  them. 
Probably  the  most  variable  aspect  was  the  offset  drift  of  the  op  amps  in  time.  For 
the  sake  of  these  drawings,  random  offset  drift  was  zeroed  out. 

While  considerable  effort  was  required  to  draw  these  response  surfaces  by  hand, 
it  is  conceivable  to  couple  an  on-line  computer  to  the  instrumentation  during  the 
data  acquisition  phase  at  the  FXR  and  the  SPR,  and  create  these  surfaces  automati¬ 
cally  using  standard  three-dimensional  surface  fitting  and  projection  routines. 

With  the  basic  data  stored,  different  projection  angles  can  be  chosen  to  optimize 
the  perspective  seen.  We  did  not  have  that  advantage  for  example  in  drawing  Figure 
1 5,  where  only  after  most  of  it  had  been  drawn  did  we  realize  that  the  dosage  axis 
reversed  would  show  the  valley  behind  the  first  cliff  more  readily. 

The  basic  data  for  computer  fitting  the  surfaces  for  the  741  were  obtained 
from  the  hand  drawings  by  means  of  three-dimensional  perspective  parallelograms. 
These  are  used  to  carry  the  positional  data  inherent  in  some  point  on  the  surface 
back  to  intersection  points  along  the  three  fundamental  perspective  axes.  This 
process  is  just  as  time  consuming  as  the  original  data  plot  operation  was  initially. 
Also  it  is  difficult  to  avoid  errors  in  the  positioning  and  sequencing  of  the 
straight-edges.  About  200  data  points  are  the  minimum  required  to  represent  a 
surface  ii'  symmetry  is  present  and  two  to  three  times  that  if  the  surface  is  com- 
olex  with  no  symmetry. 
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3.  COMPUTER  PROGRAM  FIT3D 

The  basic  strategy  used  to  fit  and  plot  the  raw  data  is  to  establish  a  two- 
dimensional  grid  in  the  x-y  plane  of  the  data  set.  Normally  we  will  adopt  the 
following  labeling  convention  for  the  axis,  and  take  them  as  a  right-handed 
coordinate  seti 

•  x-axis  -  time  or  log(time), 

•  y-axis  -  input  stimulus  variable,  such  as  voltage 

or  log( dosage). 

•  z-axis  -  transfer  or  response  function. 

The  dimensionality  of  the  fitting  grid  is  taken  as  NX  by  NY,  where  in  all  cases 
that  were  treated,  NX  »  NY  -  20.  The  dimensionality  of  the  plotting,  NGX  by  NGY, 
grid  was  increased  to  the  range  of  40  to  50  along  each  axis  in  order  to  achieve 
reasonably  valid  plots  since  the  plotted  line  segments  are  straight  line  segments. 
The  fitting  grid  itself  can  be  coarser  since  the  fitting  functions  are  three- 
dimensional  cubics.  The  question  of  how  large  or  small  the  fitting  grid  really 
must  be  is  determined  by  the  degree  of  deviation  which  is  acceptable  between  the 
experimental  data,  and  the  machine  generated  fit.  This  will  be  pointed  out  later 
in  comparing  the  computer  fits  to  the  hand-drawn  surfaces. 

The  computer  program  FET3D  is  a  collection  of  4l  subroutines  that  create  the 
three-dimensional  fitting  functions  and  then  plot  the  resultant  surface  as  an 
orthographic  projection.  This  file  of  programs  was  continually  improved  and  ex¬ 
tended  during  the  course  of  the  research  program.  The  main  program  is  FI TIT,  and 
the  sequence  of  functions  which  it  calls  out  are  shown  in  the  flowchart  of  Figure 
16. 

Three  card  decks  can  be  punched  out  by  FITIT  if  desired.  These  are  called 
ZDATA,  ZCOEF,  and  ZCALC  and  represent 

•  ZDATA  is  a  re-ordered  version  of  the  inputted  data 

•  ZCOEF  is  a  set  of  NX  x  NY  cards  containing  the 
triplet  of  numbers  (z,  ^  ,  |^)  at  each  interstice 
of  the  fitting  grid. 

•  ZCALC  is  a  set  of  (NGX  x  NGY  /5)  cards  with  z  for 
each  interstice  of  the  plotting  grid. 
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The  ZCOEF  deck  or  the  ZCALC  deck  may  be  used  to  create  plots  subsequently  with¬ 
out  the  necessity  of  running  through  the  entire  fitting  process  again.  The 
ZCOEF  deck  is  used  in  the  subsequent  program  SAP  and  is  hence  more  versatile, 
and  since  it  is  smaller  than  the  ZCALC  deck  perhaps  preferable  for  plotting.  In 
some  cases  it  does  require  diving  through  the  interpolation  routine  SURFB  cgain, 
but  this  only  requires  five  seconds  of  machine  time,  which  is  not  excessive. 

The  logic  path  taken  in  FITIT,  and  the  control  of  the  punch  operations  on  the 
above  decks,  is  determined  by  the  data  cards  first  read  in  by  FIITT.  Since  the 
basic  input  data  to  FITIT  can  be  brought  in  from  the  ZCOEF  deck  or  the  ZCALC  deck, 
choice  of  which  one  is  read  is  determined  by  the  fourth  data  card.  This  card  also 
controls  the  calling  of  FILLZ,  which  performs  the  creation  of  least  square  adjusted 
data  points  on  the  interstices  of  the  fitting  grid,  or  the  calling  of  NICER  which 
sets  up  the  smoothing  operations,  or  the  calling  of  INTERP  which  can  insert  addi¬ 
tional  data  points  into  regions  which  are  deficient  in  terms  of  actual  experimental 
data  by  using  linear  interpolation  between  valid  data  points, 

A  listing  of  the  initial  card  reading  statements  of  FITIT  is  contained  in 
Figure  17,  A  typical  data  card  d9ck  makeup  is  presented  in  Figure  18, 

The  interpolation  of  values  of  z  given  (x,y)  coordinates  of  a  plot  point  is 
performed  by  the  routines  SURFB  and  SURFC  using  the  information  contained  in  the 
ZCOE*  array  created  by  SURFA,  SURFB  locates  the  input  plot  point  within  the  proper 
one  of  the  400  grid  rectangles,  and  performs  interpolation  in  the  three-dimensional 
cubics  using  the  procedure  of  Ferguson*.  If  the  plot  point  happens  to  lie  in  the 
same  grid  cell  as  the  point  of  the  prior  call,  the  Ferguson  coefficients  are  not 
recomputed,  rather  SURFB  drops  through  calling  SURFC  which  uses  the  Ferguson  co¬ 
efficients  of  the  last  pass.  These  interpolation  routines  are  reasonably  fast, 
performing  approximately  5°0  interpolations  per  second  of  Univac  110C  CPU  time. 

Initially  the  three-dimensional  plots  were  made  using  a  University  Computing 
Company  routine  PROJECT.  The  routine  had  some  operational  features  which  were  not 
satisfactory  (such  as  only  plotting  positive  z  values),  and  did  not  label  and  scale 
the  axes  of  the  figure.  So,  instead  the  routine  DRAW3D  was  adapted  to  be  compatible 


J.  Ferguson,  J.A.C.M.  l_l,  #2,  April  1964,  p,  221-228, 
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with  the  Calcomp  type  calls  used  by  the  UCC  plotter.  When  completed  the  results 
were  rather  good,  in  terms  of  generating  good  scales  and  labels  for  both  the  three 
dimensional  plots  and  the  plots  created  by  SAP.  Additional  effort  was  devoted  to 
incorporating  a  hidden  line  removal  algorithm  in  DRAW3D. 

The  transformation  which  DRAW3D  uses  in  making  the  plots  is  orthographic  pro¬ 
jection.  The  scale  is  constant  over  the  drawing.  The  transformation  equations 
from  the  three-dimensional  data  to  the  two-dimensional  drawing  are; 


x(x,y)  «  x  S  cos  a  -  y  S  cos  B 
x  y 

y(x,y,z)  -  z  S  -  x  S  sin  a  -  y  S„  sin  B 
2  x  y 

where  S  ,  S  ,  and  S  are  scale  factors, 
x  y  z 

The  various  views  of  the  surfaces  are  plotted  with  values  of  the  angles  alpha 
and  beta  having  the  meaning  as  shown  in  Figure  19  which  is  in  accord  with  the  pre¬ 
viously  given  definition  of  the  coordinate  system  and  where j 

•  alpha  is  the  angle  measured  counter  clockwise  from  the 
positive  horizontal  line  to  the  x  axis, 

•  beta  is  the  angle  measured  clockwise  from  the  negative 
horizontal  line  to  the  y  axis. 

Predetermining  the  correct  choice  of  the  projection  angles  a  and  B  was  greatly 
simplified  by  taking  a  transparent  plastic  "picture  cube",  and  marking  the  x,  y, 
and  z  axes  on  it.  This  was  then  held  up  against  a  3^0°  protractor  of  6  inches 
diameter  in  such  a  manner  that  the  z  axis  was  vertical  as  viewed;  this  means  the 
z  axis  could  be  tilted  to  and  fro,  but  not  side  to  side.  Then  the  intersection 
of  the  axes  along  the  periphery  of  the  protractor  immediately  provides  the  correct 
choice  of  alpha  and  beta  to  yield  the  desired  perspective.  It  should  be  noted  that 
when  the  z  axis  is  not  held  vertical  during  the  above  operation  the  resulting  plot 
does  not  look  at  all  satisfactory,  since  the  orthographic  projection  of  DRAW3D 
will  orient  the  z  axis  vertically  regardless  of  a  and  B. 
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4.  COMPUTER  PITS  TO  THE  741  ELECTRICAL  AND  RADIATION  RESPONSE 

Because  the  741  operati jnal  amplifiers  surfaces  were  originally  created  by 
hand  drawn  perspective  drawings,  the  subsequent  machine  processing  was  relatively 
simple  compared  to  the  strategies  applied  later  to  the  digital  gate  data.  In 
Figure  5  is  shown  the  first  fit  attempted  to  the  step  voltage  transfer  function 
surface.  This  clot  was  made  by  the  UCC  routine  PROJECT,  with  scales  and  labels 
added  later  by  LEROY  lettering.  The  hand  drawing  from  which  the  data  were  obtained 
was  shown  earlier  as  Figure  3*  There  are  some  obvious  flaws  in  the  computer  fit 
to  the  data  available  to  it,  namely  the  "ears"  at  about  ei  =  ~  0.6  mv  and  t  =  23  ms 
These  protuberances  result  from  the  relative  sparseness  of  data  points  in  that  por¬ 
tion  of  the  surface,  combined  with  the  fact  that  there  is  a  sharp  comer  in  the 
data  itself.  The  "roundness"  of  polynomial  fitting  causes  an  over  and  undershoot 
in  such  regions.  To  a  certain  extent  this  can  be  minimized  by  supplying  an  abun¬ 
dance  of  data  which  tightens  up  the  tolerances  allowed  by  the  least  square  fitting 
process  of  FILLZ. 

Another  area  showing  deficiencies  is  in  the  central  front  rising  section  where 
the  first  four  or  five  isochronals  have  an  accordion  like  pleating.  Again  this  is 
due  to  a  sparseness  of  raw  data,  such  that  the  fitting  cubics  in  a  given  fitting 
square  are  not  adequately  constrained,  and  so  the  spline  conditions  attempt  to  im¬ 
prove  the  fit  in  those  areas  where  the  supply  of  basic  data  is  greater.  The 
second  pass  at  this  surface  is  shown  in  Figure  20,  as  plotted  by  the  routine  DRAW3D 
Note  how  adding  additional  data  points  eliminated  the  pleating  at  the  initial  rise, 
and  reduced  to  some  extent  the  overshoot  or  ears  on  the  upper  portion.  The  top 
portion  at  the  back  is  also  smoother  and  flatter. 

Three  views  of  the  gamma  radiation  response  surface  of  the  741.  generated  by 
FIT3D  from  the  original  surface  drawing  of  Figure  14,  are  shown  in  Figure  21  a,  b, 
and  c.  It  is  evident  that  the  overall  fitting  is  rather  good.  The  only  place 
where  there  is  a  significant  difference  occurs  on  the  rising  wall  at  high  dosage 
following  the  dip  to  negative  saturation.  The  experimental  plot  has  a  shelf  which 
is  not  reproduced  due  to  the  coarseness  of  the  20  by  20  fitting  grid  in  the  machine 
plots.  Two-dimensional  cross-sectional  plots  through  maximum  and  minimum  are  given 
for  this  surface  in  Figure  22  a  and  b. 

Again  note  the  dramatic  difference  in  the  resnonse  speed  of  the  device  to 
radiation  when  compared  to  electrical  stimulus  as  may  be  seen  by  comparing  the 
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Figure  21.  R.uli.ttion  Tr.insfer  Function  of  741  due  to  FXR  F.xposure 

Figure  21 a. 
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Figure  22b.  Cross  Section  Through  Mininum  Transfer  Function 
Value  of  the  7^1  FXR  Surface  of  Figure  21 
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time  axes  of  the  vacuum  cleaner  surface,  Figure  20,  with  that  of  the  FXR  surface, 
Figure  21. 

The  computer  representation  of  the  neutron  response  function  surface  of  the 
74l  as  obtained  with  the  Sandia  Pulse  Reactor  (SPR)  is  shown  in  different  projec¬ 
tion  views  in  Figure  23  a,  b,  and  c.  Here  we  note  the  great  advantage  of  the 
computer  in  being  able  to  rotate  the  view  angle  so  that  we  can  peer  right  down  the 
valley,  which  was  so  laboriously  treated  by  successive  overlays  in  Figure  15. 
Two-dimensional  cross-sectional  views  for  this  neutron  surface  are  given  in  Figure  24 
a  and  b. 

Of  particular  significance  to  this  work  is  the  cross-sectional  plot  on  the 
bott :.n  of  Figure  24  b,  where  TPHI  versus  log  (dosage).  This  curve  essentially 
shows  the  destruction  of  the  device  at  very  high  dose.  It  seems  to  represent  per¬ 
manent  degradation,  in  addition  to  the  basic  transient  phenomenon;  few  devices 
survive  close  shots  at  the  SPR.  Thus  by  defining  an  appropriate  isochronal  at  a 
time  of  approximately  700  microseconds,  the  permanent  damage  to  a  device  for  a 
given  accumulated  dose  would  appear  to  be  calculable  from  the  same  surface  that 
depicts  the  transient  response.  This  should  not  be  expected  to  be  true  in  all 
cases.  The  way  this  damage  isochronal  is  used  in  the  circuit  analysis  code  SAP 
will  be  discussed  later. 

The  neutron  surface  shows  again  the  general  validity  obtainable  with  the  20 
by  20-fitting  grid.  The  results  are  good  in  the  "big"  sense.  Note  that  the  fit 
is  not  quite  a  faithful  representation  because  of  the  absence  of  a  shelf  on  the 
rising  and  falling  portions  of  the  valley,  as  may  be  seen  by  comparing  Figure  5 
with  Figure  23. 

A  last  aspect  of  the  radiation  transfer  function  surfaces  for  the  74l  op  amp 
which  is  of  fundamental  significance  is  the  logarithmic  scale  for  both  the  dosage 
and  time  axes.  This  is  not  only  of  great  significance  in  terms  of  the  machine 
fitting  process  itself,  but  also  will  be  of  high  value  later  in  the  system  analy¬ 
sis  operations  in  SAP  in  considerably  reducing  the  time  constant  and  execution 
time  problem  for  certain  classes  of  simulation.  However,  a  logarithmic  time  axis 
does  not  prove  acceptable  for  some  of  the  digital  gate  response  surfaces.  That  is, 
the  complexity  of  the  response  must  reduce  with  time  in  order  for  a  logarithmic 
time  base  to  be  acceptable.  The  74l  surfaces  show  that  this  does  happen  for  some 
integrated  circuits. 
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VQLTRGE  RESPONSE  FUNCTION  OF  741  NRTQ  SPR  NEUTRONS  RUN*429 


Figure  23a. 

''iguro  .73.  Voltage  Response  Function  of  741  due  to  SPR  Neutrons 
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Pigur«  ?M»  Cromi  3«ctlon  Through  Maximum  Transfer  Function 
Value  of  the  7^1  SPR  Surface  of  Figure  23 
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Figure  24b.  Cross  Ssotlon  Through  Minima  Transfer  Function 
Value  of  the  ?4l  SPR  Surface  of  Figure  23 
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5.  COMPUTER  FITS  TO  THE  9704  ELECTRICAL  AND  RADIATION  RESPONSE  SURFACES 

As  discussed  earlier,  no  hand  drawings  were  prepared  for  the  9704  digital 
gate  surfaces.  The  resolution  of  conflicting  or  sparse  data  available  from  the 
experiments  was  one  problem  in  selecting  and  developing  proper  computer  based 
strategies. 

a.  Electrical  response  surface 

The  gate  electrical  characterization  was  obtained  with  the  circuit  con¬ 
figuration  shown  in  Figure  25,  with  data  coming  out  as  an  x-y  recorder  tracing 
of  the  output  voltage  versus  time  for  input  pulses  of  various  amplitudes  and  a 
fixed  length  of  300  ns.  This  300  ns  pulse  length  was  sufficient  for  the  steady 
state  to  be  reached,  particularly  for  the  long  time  constant  phenomenon  that  occur 
in  the  transition  range.  Then  the  output  tracings  were  digitized  and  the  data  key 
punched  as  the  ZDATA  deck  for  FIT3D,  with  the  results  that  are  shown  in  Figure  26a, 
b,  and  c. 

Some  ringing  is  evident  in  the  turn-on  and  turn-off  of  the  device.  The 
shortest  possible  lead-lengths  in  the  test  fixture  were  unable  to  eliminate  the 
ringing.  The  values  of  circuit  capacitance  were  far  smaller  than  those  required 
to  explain  the  observed  ringing  frequency,  and  hence  must  be  due  to  internal  de¬ 
vice  capacitance.  The  figure  shown  made  use  of  the  linear  interpolation  option 
in  FTTIT  to  call  INTERP  so  as  to  provide  a  denser  packing  of  data  points  to  control 
the  "roiliness"  of  the  cubics.  This  Has  needed  in  the  fast  transition  regions. 

A  further  step  necessary  was  to  provide  a  line  of  data  points  along  the  t  »  0  axis, 
to  "tie  down"  the  end  of  the  surface.  The  experimented  data  supplies  a  multiple 
redundancy  of  points  that  are  all  located  at  the  same  spot,  and  hence  the  fitting 
polynomials  are  unconstrained  elsewhere. 

The  essential  manner  in  which  the  subroutine  INTERP  operates  to  provide 
additional  data  points  to  help  in  packing  the  data  plane  fully,  is  to  first  label 
legitimate  data  strings  as  .TRUE.,  and  the  new  strings  to  be  interpolated  in  be- 
tween  them  as  .FALSE.  Next,  a  DO  loop  marches  from  one  end  of  the  y  axis  to  the 
other  interrogating  the  logical  variable  TYPE  to  find  out  if  the  string  position 
is  .FALSE,  in  which  case  it  then  locates  the  neighboring  .TRUE,  strings  on  either 
side.  Next  another  DO  loop  moves  along  that  .FALSE,  string  in  the  x  directi.on  by 
the  desired  amount.  Then  it  finds  four  bracketing  va'i  Id  data  points  on  the  neigh¬ 
boring  .TRUE,  strings,  and  first  Interpolates  along  their  x  direction  to  find  the 
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z  value  at  the  same  x  coordinate  as  the  new  .FALSE,  point.  This  finds  two  points 
on  either  side  of  the  new  point.  Then  linear  interpolation  is  used  again  be¬ 
tween  these  two  points  on  the  .TRUE,  strings  to  find  the  z  value  at  the  new  .FALSE, 
point.  The  DO  then  continues  on  to  the  next  desired  .FALSE,  point  and  repeats  the 
process.  If  the  data  could  be  instantaneously  processed  «  .t  is  acquired,  the 
need  for  this  type  of  processing  would  be  minimized,  since  the  sparseness  of  data 
is  very  evident  in  the  results  of  the  fitting  process. 


b.  Neutron  response  surfaces 

The  voltage  and  current  response  surfaces  of  the  gate  presented  a  new  class 
of  problems  in  the  process  of  deriving  a  satisfactory  result.  To  fully  describe 
these  problems,  we  shall  include  herein  the  full  sequence  of  plots  from  the  first 
try  to  the  last.  We  will  not  delete  our  mistakes  since  it  is  from  those  that  the 
successful  strategies  frequently  are  formed.  Both  the  voltage  and  current  radia¬ 
tion  response  surfaces  will  be  discussed  concurrently  rather  than  separately  to 
show  how  they  presented  similar  problems. 

The  initial  fit  and  plot  of  t.  :  radiation  neutron  current  transfer  func¬ 
tion  for  the  gate  is  shown  in  Figure  2?,  while  that  of  the  voltage  surface  is  shown 
in  Figure  2H,  Very  evident  in  both  of  them  is  the  large,  smooth  region  at  very 
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Figure  28.  Voltage  Neutron  Radiation  R 
First  Fitting  of  Basic  Data 


small  time  values.  In  botn  cases  this  is  entirely  spurious,  and  is  the  result  of 
a  mistake  in  specifying  the  lower  limit  for  the  time  axis  over  which  the  routine 
FITIT  was  to  generate  the  machine  fit.  The  initial  value  of  time  in  the  experi¬ 
mental  data  (Polaroid  photographs  of  CRT  tracings)  is  the  trigger  of  the  reactor 
core  and  the  oscilloscope  sweep.  As  discussed  in  the  Appendix  the  build-up  of 
fission  processes  in  the  reactor  core  occurs  exponentially  in  time  reaching  a 
maximum  the  order  of  a  hundred  microseconds  after  trigger.  Meaningful  oxcursions 
from  the  vertical  zero  on  the  scope  tracing  do  not  begin  until  about  15  or  20  ms 
after  trigger.  The  error  in  the  fit  was  to  use  a  value  of  the  variable  XLOW  which 
was  too  small,  0.0  or  1.0,  on  the  log  time  scale,  rather  than  3*0  (which  corres¬ 
ponds  to  1  ms).  Hence,  a  very  large  portion  of  the  basic  x-y  fitting  grid  plane 
had  no  data  points  to  constrain  locally  the  fitting  function,  which  was  then  free 
to  minimize  residuals  in  the  spline  sense  in  those  areas  containing  data.  The  re¬ 
sult  is  the  long  downward  sweep  in  the  current  surface  which  is  entirely  erroneous. 

The  next  try  at  the  current  neutron  transfer  function  is  shown  in  the  re¬ 
sults  of  run  322  in  Figure  29.  Despite  all  the  lumps  and  wiggles,  this  is  not  a 
bad  representation  of  the  real  data.  The  one  spurious  aspect  is  the  negative 
excursi.n  somewhere,  as  evidenced  by  the  fact  that  the  surface  seems  to  be  sitting 
in  mid-air  in  the  plot  cube.  So  we  turned  the  surface  around  in  the  view  of  run 

328  as  seen  in  Figure  30,  which  shows  the  backside  of  the  hill.  The  negative  ex- 

11  13 

cursion  at  a  dosage  of  10  and  10  is  due  to  an  absence  of  constraining  data  in 
those  areas.  Sv  examining  the  basic  data,  filling  in  additional  data  points  by 
hand  where  needed,  and  running  through  INTERP,  the  results  of  run  404  were  obtained 
as  shown  in  Figure  31.  Still  the  surface  does  not  seem  really  acceptable  in  that 
we  don't  expect  experimental  functions  to  be  that  rough. 

The  next  try  at  the  neutron-voltage  transfer  function  gave  the  plot  of 

run  342  shown  in  Figure  32a,  where  IN.ERP  was  used  to  fill  in  regions  in  the  right 

hand  data  space.  The  vast  difference  between  this  figure  and  Figure  28,  came 

about  by  deleting  one  valid  data  string  from  the  collection  of  data.  Of  seven 

13 

pictures  representing  dosages  less  than  10  ,  only  one  showed  any  response,  the 

rest  were  zero.  Thus,  it  was  necessary  to  use  judgement  and  arbitrarily  delete 
that  one.  Here  it  is  evident  that  there  is  a  threshold  type  of  radiation  resconse 
for  the  gate.  Except  for  the  one  device,  there  was  no  effect  of  the  radiation  on 
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CURRENT  NEUTRON  RADIATION  RESPONSE  OF  9704  RUN  326 
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Figure  30. 

Rear  View 

of  Current  Neutron  Function 

of  9704, 

Second  Fitting  by  Computer 

CURRENT  NEUTRON  RADIATION  RESPONSE  OF  3704  RUN  404 


Figure  31 •  Front  View  of  Current  Neutron  Function 
of  9704.  Third  Fitting  by  Computer 
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the  output  voltaic  until  the  dose  exceeded  about  10  J  nvt,/rm  ,  The  f  ,.ct  that  the 
surface  is  sitting  up  in  the  plot  cube  shows  again  a  negative  swing  is  present 
somewhere.  The  other  perspective  views  of  Figure  32  b,  c,  and  d,  indicate  a 
negative  swing  at  maximum  dose  and  time.  This  again  was  due  to  a  sparseness  of 
real  data  at  that  location.  The  final  version  of  the  surface  after  filling  the 
comer  with  sufficient  data  values  is  shown  in  the  results  of  runs  46?  and  471  in 
Figure  33  a,  b,  and  c.  It  should  be  realized  that  the  radiation  pulse  drives  the 
output  voltage  up,  even  though  the  output  may  already  be  in  the  electrically  high 
digital  state.  Moreover,  the  output  can  swing  higher  than  the  positive  supply 
voltage. 

Now  let  us  return  to  the  current  neutron  transfer  function  surface  to  see 
how  the  smoothing  routines  were  applied  to  try  and  even  out  the  local  inhomogenei¬ 
ties.  The  smoothing  operations  are  an  optional  path  in  FI TIT  involving  calls  to 
the  following  subroutines! 

NICER  -  sets  up  smoothing  calls.  First  smooth  on  x,  stepping 
along  y;  then  smooth  on  y,  stepping  along  x.  Next, 
average  the  z  values  for  the  two  smoothing  directions. 

The  number  of  passes  is  NITME.  NICER  then  calls 

SMOOTH  -  handles  setting  up  wild-pointing,  differentiating, 
smoothing  and  array  interchanges  for 

DUZ2  -  performs  actual  operations.  DUZ2  has  options  for 
anchoring  of  end  points. 

The  starting  point  for  the  operations  was  the  surface  as  shown  in  Figure  31  from 
run  362  and  Figure  35  from  run  362.  Successive  odd  numbered  passes  on  the  front 
of  this  surface  are  shown  in  Figure  36  a  through  f,  and  the  rear  portion  in 
Figure  37  a  through  f.  The  number  of  the  smoothing  pass  is  indicated  by  the  SP 
abbreviation  in  the  caption.  The  results  were  plotted  to  see  actually  what  eleven 
smoothing  passes  mean  to  a  surface.  It  is  evident  that  a  reasonably  acceptable 
surface  is  achieved  after  three  passes,  and  certainly  by  five.  After  that  the 
smoothing  hardly  changes  the  basic  structure.  It  is  interesting  to  note  how  the 
deep  valley  on  the  back  portion  of  the  surface  at  log( dosage)  -  13.55  is  even¬ 
tually  eliminated  by  successive  smoothing  passes.  The  criteria  telling  us  when 
enough  smoothing  has  been  performed  is  essentially  subjective.  However  a  more 
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Figure  32b.  Rear  View  of  Voltage  Neutron  Radiation  Response 

of  9704,  Second  Computer  Fitting  < 
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V0LTR3E  NEUTRON  RADIATION  RESPONSE  OF  970N  RUN  3<f2 


Figure  32c.  Rack  Side  View  of  Voltage  Neutron  Radiation  Response  of 
9704.  Second  Computer  Fitting 
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VOLTAGE  NEUTRON  RADIATION  RESPONSE  OF  97 


Figure  32d.  Bottom  View  of  Voltage  Neutron  Radiation 
of  970 4,  Second  Computer  Fitting 
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VOLTAGE  NEUTRON  .:RDIATION  RESPONSE  OF  “704  RUN  4ST 


Figure  33b.  Side  View  of  Voltage  Neutron  Radiation  Response 
of  9704,  Third  Fitting  by  Computer 


92 


L05(D0Sf)GE> 

flt-PHfls 


280  •«»>•  ,T0 


W«Ur»  33c.  v 

"lew  of  Vni  + 

”*•  —  »«s  :rx-.s-“"  . 


93 


Z<~XT>- 


flLPHft=  32  ,  BETR=  10 


Figure  35.  Front  View  of  Current  Neutron  :  .  setion  of  97 04 
Prior  to  Computer  Smoothing 
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Kl/v.iro  >>a.  Front.  Vlow  of  Current  Neutron  Radiation  Rooponco 
of  9704,  After  One  Snoothin^  Paso 
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Figure  36b.  Front  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  Three  Smoothing  Passes 
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Figure  36c,  Front  View  of  Current  Neutron  Radiation  Response 
of  9?04,  After  Five  Smoothing  Passes 
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Figure  36d.  Front  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  Seven  Smoothing  Passes 
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CURRENT  NEU'RON  RROIRTION  RESPONSE  OF  9704  RUN  >420  9  SP 


Figure  36e.  Front  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  Nine  Smoothing  Passes 


100 


CURRENT  NEUTRON  RROIRTION  RESPONSE  OF  9701  RUN  4 13  11  SP 
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Figure  36f.  Front  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  Eleven  Smoothing  Passes 
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CURRENT  NEUTRON  RADIATION  RESPONSE  OF  9704  RUN  408 


Figure  37a.  Rear  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  One  Smoothing  Pass 
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CURRENT  NEUTRON  RADIATION  RESPONSE  OF  9704  RUN  415  3  SP 


Figure  37b.  Rear  View  of  Current  Neutron  Radiation  Response 
of  9?04,  After  Three  Smoothing  Passes 
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CURRENT  NEUTRON  RADIATION  RESPONSE  OF  3701  RUN  121  5  SP 


CURRENT  NEUTRON  RADIATION  RESPONSE  OF  9T01  RUN  «U6  T  SP 
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Figure  37d»  Reav  View  of  Current  Neutron  Radiation  Response 
of  970b,  After  Seven  Smoothing  Passes 
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CURRENT  NEUTRON  RADIATION  RESPONSE  OF  9701  RUN  113  11  SP 


Figure  37f»  Hear  View  of  Current  Neutron  Radiation  Response 
of  9704,  After  Eleven  Smoothing  Passes 
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quantitative  criteria  could  probably  be  developed  based  on  the  amount  of  relative 
shifting  that  takes  place  on  successive  passes.  Thus  when  the  basic  structure 
is  reached,  the  relative  shifts  from  the  last  pass  presumably  drop  rapidly. 

The  prime  conclusion  however  from  the  above  example  is  that  an  appropri¬ 
ately  applied  combination  of  adding  and  deleting  certain  data  points  or  strings, 
followed  by  astute  choice  of  linear  interpolation  packing  of  the  data  plane, 
together  with  judicious  application  of  smoothing  and  wild-pointing,  can  yield 
satisfactory  computer  representations  of  the  basic  experimental  data  without 
the  necessity  of  first  making  a  hand  perspective  drawing.  However  judgement  is 
still  required  during  the  machine  processing  steps,  particularly  when  treating 
the  results  of  variability  amongst  different  devices  relating  to  threshold  class 
of  responses. 

c.  Gate  Flash  X-ray  Response  Surfaces 

The  first  fitting  of  the  voltage  radiation  transfer  function  of  the  9704 
NAND  gate  yielded  the  plot  shown  in  Figure  38.  While  an  initial  impression  might 
be  that  the  surface  doesn't  tell  much,  on  reconsideration  it  clearly  shows  the 
presence  of  a  threshold  type  of  radiation  sensitivity,  just  as  the  neutron  voltage 
response  surface  did.  It  leads  to  speculation  that  perhaps  the  neutron-gamma 
ratio  of  the  fission  burst  is  not  so  high  that  some  of  the  observed  neutron  re- 

O 

suits  are  likely  due  to  the  incident  gammas.  Taking  an  n-y  ratio  of  5  x  10  ,  then 

13  5 

a  neutron  dose  of  5  x  10  gives  a  gamma  dose  of  10"^  rad.  The  time  scaling  of  the 
FXR  is  about  $000  times  less  than  that  of  the  SPR,  hence,  the  dose  rata  or  y  is  the 

Q 

order  of  5  x  10  rad/sec.  The  radiation  sensitivity  threshold  for  the  9704  gate 
at  the  FXR  was  about  3  x  10*°  for  a  transition  in  the  output  voltage  logic  state 
level.  However,  photocurrent  contribution  were  clearly  evident  at  dose  levels  two 
or  three  orders  of  magnitude  less  in  the  current  response  surfaces. 

Additional  projection  plots  of  the  voltage  response  function  for  FXR  ex¬ 
posure  axe  shown  in  Figure  39  a  and  b.  The  vertical  scale  problem  evident  in 
Figure  38  wan  corrected  yielding  a  larger  range  on  the  z  axis. 

Smoothing  was  applied  to  this  surface  with  the  results  of  run  502  shown  in 
Figure  39  c,  d,  e,  and  f.  It  is  apparent  by  inspection  of  the  comer  of  the  sur¬ 
face  at  maximum  dose  and  minimum  time,  that  the  smoothing  is  driving  the  comer 
data  points  downward  in  an  erroneous  manner.  This  is  readily  observed  by  comparing 
Figure  39  b  with  Figure  39  d.  The  smoothing  does  reduce  some  of  the  bumps  elsewhere 
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FXR  VOLTAGE  RADIATION  TRANSFER  FUNCTION  OF  9704  RUN  «502 


Figure  39b.  Side  View  of  FXR  Voltage  Radiation 
Transfer  Function  of  9?0^  Gate 
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Figure  39e.  Oblique  View  of  FXR  Voltage  Radiation  Transfer 
Function  of  9704  After  One  Smoothing  Pass 


FXR  VOuTflSE  RADIATION  TRAN9FER  FUNCTION  OF  9f04  RUN  »502 


in  a  way  which  is  acceptable.  However,  th.  reed  for  anchoring  of  some  data  points 
to  hold  them  fixed  with  respect  to  the  smoothing  operations  is  clearly  mandatory 
in  this  case.  The  present  sequence  of  calls  from  FTTIT  to  NICER,  SMOOTH,  and 
DUZ2  do  not  allow  this  option,  and  should  be  modified  in  the  future. 

The  FXR- induced  current  output  of  the  gate,  as  loaded  with  the  four  in¬ 
puts  of  the  following  gate  in  the  dual  NAND  package,  is  shown  in  Figure  40  •  The 
oscillations  present  in  the  output  are  very  evident  at  low  dose  levels.  The 
oscillation  frequency  is  approximately  10  MHz.  The  behavior  of  the  surface  at 
higher  dose  levels  shows  portions  of  this  ringing  frequency  also.  The  rather  dis¬ 
turbed  appearance  at  high  dose  levels  is  the  result  of  fitting  a  number  of  data 
strings  from  different  shots  and  devices,  with  not  only  their  own  inconsistencies, 
but  also  the  error  components  arising  from  trigger  differences,  and  those  of  the 
hand  digitization  of  the  Polaroid  photographs.  The  amplitude  of  the  signal  from 
the  Tektronix  CT-2  current  transformers  is  in  the  millivolt  range  so  .that  the 
maximum  gain  of  the  Tektronix  7704  oscilloscope  was  required  in  order  to  observe 
the  traces.  Noise  and  drift  of  the  signal  were  consequently  severe. 

The  FXR  response  surfaces  for  the  gate  as  presented  above  were  plotted 
vs.  time  itself  as  the  independent  variable  along  the  x  axis,  rather  than  the 
logarithm  of  tine  as  was  the  case  with  the  neutron  response  surfaces  and  the 
741  response  surfaces.  This  posed  some  problems  in  the  later  analysis  program 
SAP,  so  an  attempt  was  made  to  fit  the  gate  FXR  surfaces  similarly  with  a  log 
(time)  representation  along  the  x  axis.  The  results  for  the  current  radiation 
surface  from  run  498  appear  in  Figure  41.  The  effect  of  the  linear  to  logarithmic 
time  transformation  is  to  devote  about  one-third  of  the  fitting  function  to  the 
time  interval  between  1  and  10  ns  after  trigger,  during  which  interval  very  little 
happens,  and  to  essentially  eliminate  any  of  the  detail  in  the  ringing  after  about 
70  ns.  The  resulting  fit  is  certainly  not  satisfactory.  Thus,  it  is  evident 
that  a  log(time)  axis  will  be  satisfactory  only  if  the  fundamental  structure  of 
the  surface  decreases  sufficiently  rapidly  with  time.  It  would  appear  that  a 
circuit  or  system  whose  impulse  response  function  continues  with  rapid  variations 
for  long  times,  such  as  an  oscillator,  should  not  be  fit  with  a  log(time)  represen¬ 
tation. 
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FXR  CURRENT  RADIATION  TRANSFER  FUNCTION  OF  9704 


Figure  40,  Oblique  View  of  FXR  Current  Radiation  Transfer  Function 
of  9704  with  Linear  Representation  along  Time  Axis 
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Figure  41.  Oblique  View  of  FXR  Current  Radiation  Transfer  Function 
of  9704  with  Logarithmic  Representation  along  Time  Axis 


SECTION  V 


SAP  COMPUTER  PROGRAM 


1.  GENERAL  ORGANIZATION 

The  overall  logic  flow  in  the  computer  program  SAP  is  shown  in  the  flowchart 
presented  in  Figure  42.  The  first  seven  steps  are  essentially  initialization 
procedures  which  bring  in  the  surface  ZCOEF  files  from  drum  storage}  read  data 
cards  describing  the  circuit  configuration,  radiation  forcing  function,  and  voltage 
waveform;  and  then  the  control  and  title  cards  for  the  plots. 

The  execution  of  the  computational  strategy  discussed  in  detail  in  Section  II 
is  initiated  at  step  8  which  is  the  DO  loop  driving  the  time  stepping  and  runs  to 
step  16.  The  time  stepping  is  a  simple  constant  increment  determined  by  the  data 
card  stream.  The  time  base  can  be  either  linear  or  logarithmic.  The  mode  of  the 
tine  base  affects  the  convolution  process,  as  will  be  discussed  below.  Next,  the 
subroutines  RADGEN  and  VOLTIM  are  called  to  obtain  the  radiation  and  voltage  for¬ 
cing  functions  at  a  given  time  step. 

At  step  10  in  the  flow  chart,  the  adjusted  input  variable  is  obtained  by 
extrapolating  the  value  at  the  last  time  step  by  the  ratio  of  the  new  and  old 
fixed  input  variables.  If  the  input  element  is  close  to  linear,  the  new  iterate 
can  be  reasonably  close  to  the  correct  value.  Then  the  iteration  routine  DRIVER  is 
called  to  initiate  the  Newton-Raphson  iteration  cycle.  The  iterate  is  returned  to 
MAIN.  Step  1.2  starts  a  DO  loop  which  runs  down  through  step  14,  and  acts  to  pro¬ 
pagate  the  adjusted  and  fixed  input  variables  through  the  chain  of  blocks  to  the 
output  node. 

As  the  above  DO  loop  drives  along  the  chain  of  blocks,  successive  calls  to 
FE  and  FI  are  made  to  obtain  the  voltage  and  current  transfer  functions  of  the 
blocks.  If  the  block  element  is  simple,  such  that  an  equation  suffices  for  the 
transfer  function,  FE  or  FI  will  return  that  result  to  MAIN.  If  surface  look-up 
and  convolution  are  required,  then  FE  and  FI  will  drive  CON VOL,  TSURF,  and 

SURFC.  C0NV0L  basically  handles  the  convolving  of  past  time  steps  dynamical 
responses,  and  the  interrogation  of  the  surface  routines  for  evaluation  of  the 
contribution  of  the  current  time  steps  present  iterate  to  the  output.  Note  that 
the  convolution  operation  is  needed  only  once  for  each  time  step,  and  that  the 
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Figure  42,  SAP  Flowchart 


evaluation  of  the  present  iterate' s  contribution  involves  only  one  surface  look¬ 
up  rather  tl  _n  a  look-up  for  each  term  in  the  convolution  sum.  Thus,  the  execution 
speed  of  convolutional  dynamical  evaluations  can  be  rat>  r  high.  The  routine 
TSURF  handles  scaling  of  function  values  for  the  surfaces,  and  takes  appropriate 
actions  if  the  input  variables  are  out  of  the  range  of  the  surface.  SUPFB  and 
SURFC  use  the  ZCOEF  arrays  read  in  by  MAIN  to  perform  surface  evaluations  by  in¬ 
terpolating  within  the  grid  squares.  The  execution  time  is  approximately  2  ms  per 
surface  look-up. 

The  self-consistency  loop  at  step  14  essentially  attempts  to  compensate  for  a 
computational  delay  inherent  in  the  calculation  if  the  voltage  transfer  function 
depends  on  the  output  current,  at  a  given  time  step  and  a  given  iterate.  Since  the 
voltage  is  calculated  first  through  FS,  the  first  result  will  be  using  the  current 
from  the  last  time  step.  The  next  statement  in  MAIN  updates  the  current  for  the 
present  iterate.  The  self-consistency  loop  then  goes  back  and  recalculates  the 
voltage  for  the  block  with  the  new  current  and  tests  for  self-consistency  with  the 
values  of  the  last  pass.  When  the  voltages  and  currents  agree  within  some  desired 
value  with  those  of  the  last  pass,  the  self-consistency  criteria  are  satisfied  and 
control  passes  to  the  next  step  in  the  program. 

At  step  15  the  routine  DRIVER  is  called  thereby  providing  it  with  the  function 
value  of  the  fixed  output  variable.  DRIVER  then  tests  for  satisfaction  of  the  con¬ 
vergence  criteria,  and  either  forms  a  new  iterate  and  returns  to  step  12,  or  is 
satisfied  and  continues  to  step  16.  At  16  the  results  for  the  time  step  are  printed 
out,  and  PLOTS'  is  called  to  enter  them  into  the  plot  arrays.  This  then  completes 
one  time  step,  and  the  program  returns  to  the  beginning  of  the  DO  at  step  8. 

After  completion  of  the  time  step  DO,  at  step  17,  PLOTEM  is  again  entered  to 
initiate  printer  and  machine  plots  through  PL0T6,  FLOTOP,  the  plot  subroutine 
oackage,  and  the  UCC  machine  plot  routines.  Finally,  at  step  18  a  data  card  is 
read  which  returns  to  step  3  if  it  says  MORE,  or  calls  PLOTEM  and  PL0T6  to  termi¬ 
nate  the  plot  tape  and  then  calls  EXIT  if  the  card  says  NOMORE. 

2.  PROGRAM  MAIN 

Since  the  overall  logic  of  MAIN  was  described  in  the  section  above  relating  to 
the  flow  chart,  here  we  shall  just  describe  some  of  the  details  of  the  data  card 
decks.  The  listing  of  MAIN  is  given  in  Figure  43.  The  surface  ZCOEF  decks  are 
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p  ELT  MAIN.1 *720302*  4 7795 


000001 

00000? 

000003 

000004 

ooooos 

000006 

000007 

oooooe 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

00C051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


*  1 


C  PROGRAM  MAIN 

INCLUDE  SAP, LIST 
INCLUDE  TIME, LIST 
INCLUDE  XYZ»LIST 
COMMON  /  DEBUG  /  IDEBUG 
LOGICAL  IDEBUG 

DIMENSION  NIN ( I XI ,NOUT (IX) ,LBLOCK (IX, IX) »ISURE INSURE) »LTIME  (2) 

1, JPARAL(IX),FACT0RIIX),CN0UTI1X),VN0UT(IX),CNIN(IX),VNIN<IX) 

2. LMEXIIX) 

LOGICAL  IRADX,IRA0N,1NITAL»ISYM,ISYML 
C  TSYM  =  .TRUE.  IMPLIES  SURFACE  IS  'SYMMETRIC  WITH  RESPECT  TO  V  «  0. 

c  KMAX  =  MAXIMUM  NUMBER  OF  ITERATIONS. 

DATA  TINY/1. E-20/.  SMALL/1 .E-12/,  SAP1/4HSAP1/,  STAR/4H****/ 

DATA  EPSL N2/. o 1/ ,EPSLN3/1 .OE-8/ , IN/5/, IT/6/ 

DATA  N0M0RE/6HN0M0RE/,  DAMAGX/1.0/,  DAMAGN/I.O/ 

C 

C  IF  THE  ROUTINE  DAMAGE  IS  CALLED  UPON,  THE  SURFACE  ZVN741, 

C  MUST  BE  READ  in  BY  MAIN.  THIS  CORRESPONDS  TO  LSURF  =»  5. 

C 

C 

C  ZEROING  BLANK  COMMON  SINCE  OVERLAID  BY  THE  LOADER. 

C  LENGTH  =  TOTAL  LENGTH  OF  BLANK  COMMON. 

C 

LENGTH  =  792 
DO  1001  1  -  1,  LENGTH 

1001  VINII.I)  =  0.0 
C 

C  CALL  EKEYIS600.MAXTIM) 

INITAL  =.TRUE. 

IXBASE  =  0 
IYBASE  =  0 
IZBASE  *  0 
IDEBUG  =  .TRUE. 

LIMITQ  *  10 
VTEST  =  .05 
CTEST  =  .05 
C 

WRITE (IT, 1)  STAR, SAP1, ST AR.SAPI, STAR, SAPl, STAR, SAPI.STAR.SAP1 .STAR 

1  FORMAT (1H1,  //,10X,5(A4,4X,A4,4X) ,A4  //> 

READIIN,?)  (ISURFIL) »Lsl»NSURF) 

2  FORMAT  1 1215) 

WRITE(IT,3)  IL, ISURFIL), L=1,NSURE) 

3  FORMAT!/  2X,8(3X,  6HI5URF (»I2»4H>  =  ,11)  /) 

C 

CALLING  INPUT  DATA  FROM  SUBROUTINE  DATA. 

CALL  DATA 
C 

CALLING  SURFACE  INFORMATION  FROM  DRUM  FILES. 

DO  13  L  =  1.  NSURF 
IFIISURF(L).EO.O)  GO  TO  13 
INPUT  =  L  ♦  17 

READ  I INPUT, 4)  XLO,XHI,YLO»YHI»lXDIMN.IYDIMN,LL»ISYML. (SCALE  !L»J> 
l*J=l*3> 

4  FORMAT  1 4E8.4«3I4,L6»3E10.5) 

IXOIM(L)  =  IXOIMN 

IYDIMII 1  =  IYDIMN 
ISYMIL)  =  ISYML 
XLOW(L)  =  .9999998  •  XLO 


Figure  43a.  MAIN  Listing 
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000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

00008S 

000085 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000108 

000109 

000110 

000111 

000112 

000113 

000114 

000115 

000116 

000117 

000118 


YLOW (L)  =  .9999908  •  YLO 

XHIGH(L)  =  1.0000002  •  XHl 

YHIGH(L)  =  1.0000002  •  YHl 

XOELTA  =  (XHIGH<L)-XLOtf(L>>/(IXDIM(L>-l> 

YDELTA  =  (YHIGH(L)-YL0W(L)>/(IY0IM(L)-1> 

WRITE (IT. 5)  L.XLO.XHI ,YLO» YHl .XOELTA, YDELTA, IXDIMN, I YDIMN.LL, ISYML 
l.(L.J,SCALE(L,J> .3=1.3) 

5  FORMAT (/13H  FOR  SURFACE  .I2.7H.  XIO  «,G11.4,7H,  XHI  =,G11.4»7H,  YL 
10  =.Gli.4.7H,  YHl  =,G11.4,10H»  XOELTA  =»G11.4,10H»  YDELTA  =»G11.4, 
2/9H  IXOJM  * , 1 3 , 9h  »  IYOIM  =»I3,5H»  L  =,t2.9H.  ISYM  *  ,l:.5X.3(8H 
3SCALEl.il. IK,, II, 3H>  =,G10.2>/> 

6  'FORMAT (/  lOX.flHIXBASE  =  ,I 3.SX.8HI YBASE  *  ,I3.5X,0HIZBASE  *.15  /) 

C 

CREATING  X  AND  Y  ARRAYS  FROM  INPUTTED  INFORMATION. 

C 

IPONTR(L.l)  =  IXBASE  ♦  1 

8  FORMAT  </  SX,3(7HIP0NTR{.I2»1H.»I2»3H>  =,I5,lH,5X)/> 

DO  9  1=1,  IXDIMN 

9  X ( I  ♦  IXBASE1  =  XLO  ♦  (I-l)«XOELTA 
IXBASE  =  IXBASE  ♦  IXDIMN 
IPONTR(L»2)  =  I  YBASE  ♦  1 

DO  10  J  =  1,  IYDIMN 

10  Y(J*IYBASE)  =  YLO  ♦  (J-1)*YDELTA 
I YBASE  «  IYBASE  ♦  IYDIMN 
IPONTR (L»3)  =  IZBASE  ♦  « 

WRITEdT,  8)  (L.J.IPONTR(L.J)  »J=1.3) 

MINC  =  IXDIMN  *  IYOIMN 

M1NC2  e  MINC  ♦  MINC 

JHl  =  IYOIMN  -  1 

00  12  1=1,  IXDIMN 

DO  12  J  =  1,  JHI,  2 

MSI  «  I  ♦  (J-UMXOIMN  ♦  IZBASE 

MS2  a  MSI  ♦  IXDIMN 

ML1  =  MSI  ♦  MINC2 

ML2  =  MS?  ♦  MINC? 

READ (INPUT , 1 1 ) (Z (KK> »KK=MSl ,ML1 ,MINC> » (Z(KKK) ,KKK=MS2»ML2»HINC> 

11  FORMAT (6E13.7) 

12  CONTINUE 

IZBASE  =  IZBASE  ♦  3*MINC 

13  CONTINUE 

WRITEdT, 6)  IXBASE, IYBASE. IZBASE 

IF ( IXBASE. GT.IXLIM. OR. I YBASE. 6T. I YLIM. OR. IZBASE. GT.IZLIM)  STOP 
C 

14  CONTINUE 

C  CALLING  IN  INPUT  DATA 
READ(IN.15)  MORE 

15  FORMAT (A6) 

WRITEdT, 17)  MORE 

IF (MORE. EQ.NOmORE! CALL  PLOTEM(3,VNIN.CNIN,VNOUT .CNOUT.NMAX. INIT AL> 

PH  I  XL  =  EPSLON 

PHINL  =  FPSLON 

DAMAGX  =  1.0 

OAMAGN  =  1.0 

WRITEdT, 16) 

16  FORMAT (43H  input  THE  VALUE  OF  ISAME,  USE  FORMAT  13.  /) 

17  F0RMAT(10X,A6> 

READ (IN, 2?)  ISAME 
WRITEdT,??)  ISAME 

IF ( ISAME. EQ. 1 1  GO  TO  75 
WRITEdT, 20) 


Figure  43b.  MAIN  Listing  (cent.) 
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000119 

20  FORMAT <41H  INPUT  THE  VALUE  OF  UMAX,  USE  FORMAT  13.  /) 

00012:0 

REAOUN*??)  JMAX 

000121 

22  FORMAT (13) 

000122 

WRITE (IT .24)  JMAX 

000123 

24  format <33h  the  value  of  jmax  as  read  in  is  .  n  /> 

000124 

WRITE (IT  «30) 

000125 

30  format (71H  INPUT  THE  VALUES  IN  SEQUENCE  OF  J»  CONFIG*NIN«NOUT»R»C» 

00012>*> 

1  L.  4I3.3F1 2.4  /) 

000127 

00  32  J  =  1.  JMAX 

000126 

READUN.34)  I,  ITABLE(J.I)  .NINIJ)  .NOUT(J)  .R(J»  »C(J)  .FUJI 

000129 

32  WRITE (IT .34) I .  ITABLE(J.I)  .NINtJl »NQUT (J> .R (J) »C(J) »FL(J) 

000130 

CALL  SETUP (  NlN.NOUT.L6LOCK.JMAX.NMAX.JPARAL.LMEX) 

000131 

33  CONTINUE 

000132 

34  FORMAT (413.  3F12.4) 

000133 

C 

000134 

c 

IF  INKALL.NS.  1,  PRINTING  IS  SUPPRESSED.  EXCEPT  FOR  EVERY  MMODTH 

000135 

c 

TIME  STEP. 

000136 

WRITE JIT.41> 

000137 

41  FORMAT (41H  INPUT  THE  VALUE  OF  INKALL  AND  MMOD.  213.  /> 

000136 

READUN.42)  INKALL. MMOD 

000139 

42  FORMAT (213) 

090140 

WPITE(IT.44>  INKALL. MMOD 

000141 

44  FORMAT (  9H  INKALL  =».I2»10H.  MMOD  *.I3  /) 

000142 

c 

000143 

READ(IN»46)  EPSLON 

000144 

46  FORMAT (Fjo.6) 

000145 

WRITEdT ,<>8)  EPSLOI1 

000146 

48  FORMAT (3RH  THE  ITERATION  CRITERIA. EPSLON  *.  G14.8  /) 

000147 

c 

000146 

WRITE  < IT.54) 

000149 

54  FORMAT (5ah  INPUT  1  IF  INPUT  VOLTAGE  FIXED.  2  IF  CURRENT.  13  FRMT/) 

000150 

READ ( IN.56)  IFIXIN 

0001S1 

56  FORMAT (I 3) 

000152 

WRITEdT, 56)  IFIXIN 

000153 

WRITEdT, S8> 

000154 

58  FORMAT (52H  INPUT  l  IF  VOUT  IS  FIXED.  2  IF  COUT.  USE  FORMAT  13./) 

000155 

READdN.60)  IFIXOT 

000156 

60  FORMAT (I 3) 

000157 

WRITEdT, 56)  IFIXOT 

000156 

KROSS  =  2  -  IA8S(IFIXIN  -  IFIXOT) 

000159 

WRITEdT. 61)  IFIXIN,  IFIXOT,  KROSS 

000160 

61  FORMAT (/8H  IFIXIN*. 11, 9H,  IFIXOT*. I 1 *8K.  KR0SS*»I1»/) 

000161 

WRITEdf.62) 

000162 

62  FORMAT (53H  INPUT  THE  VALUE  OF  THE  FIXED  OUTPUT  VARIABLE,  F12.4./) 

000163 

GO  T0(68,64>.  IFIXOT 

000164 

64  READ (IN, 65)  CNOUT(NMAX) 

000165 

WRITEdT, 65)  CNOUT(NMAX) 

000166 

65  FORMAT (FI?. 4) 

00016? 

YO  =  CNOUT(NMAX) 

000163 

GO  TO  70 

000169 

68  REA0(IN»65)VN0UT(NMAX) 

000170 

WRITEdT, 65)  VNOUT(NMAX) 

000171 

YO  -  VNOUT(NMAX) 

000172 

70  CONTINUE 

000173 

WRITEdT, 72> 

000174 

72  FORMAT (58H  INPUT  THE  INITIAL  VALUES  OF  VIN(l),  CIN<1),  USING  2F12. 

000175 

14  > 

000176 

READ (IN.74)  VNIN(I),  CNIN(l) 

000177 

WRITEdT, 74)  VNIN(1),CNIN(1) 

000176 

74  FORMAT (2F12.6) 

Figure  43c.  MAIN  Listing  (cont.) 
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000179 

C 

READ  FORCING  FUNCTION  OATA. 

000160 

c 

000181 

c 

THE  NEXT  THREE  STATEMENTS  CAUSE  INPUTTING  OF  DATA  CARDS  PY  THE 

00018? 

c 

ROUTINES  RAOGEN,  VOLTIM,  AND  PLOTEM.  IN  ADDITION  PL0T6  WILL  ALSO 

000183 

c 

be  called  by  plotem  and  will  read  one  data  card. 

000184 

c 

HOWEVER,  IF  THE  RUN  IS  A  SECONDS  PASS  OF  DATA  SE1S,  THIS  CARD  WILL 

000185 

c 

NOT,  REPEAT  NOT,  BE  READ  AND  SO  SHOULD  NOT  BE  PLACED  IN  THE  SECOND 

000186 

c 

AND  FOLLOWING  DATA  SETS. 

000187 

c 

000188 

75 

CALL  RADGEN(O.STIMUL.PHl,IRADX»IRADN> 

000189 

DUMMY  =  VOLTIM(O) 

000190 

IFIISAME.NE.il  CALL  PLOTEM (- 1 ,VN IN, CNIN.VNOUT ,CNOUT ,NMAX, INI  TALI 

000191 

NEXTAK=1 

000192 

GO  TO  (80,82),  IFIXIN 

000193 

80 

FI  *  VNIN(l) 

000194 

G1  =  CNIN(1) 

000195 

GO  TO  90 

000196 

82 

FI  =  CNIN(I) 

000197 

G1  =  VNIN(l) 

000198 

C 

000199 

CONVOKING  THE  SYSTEM  ELAPSED  TIME  ROUTINE  TO  START  THE  CLOCK 

000200 

90 

CALL  ELT1 

000201 

C 

000202 

c 

THE  90  DO  LOOP  STEPS  TIME. 

000203 

00  500  M  =  1,  MMAX 

000204 

MTRUN  =  M/MMOO 

000205 

MOOM  a  MTRUN*MMOD/M 

000206 

GO  TO  (92,94),  IFIXIN 

000207 

92 

FOLD  =  VNIN(l) 

000208 

G  a  CNIN(l) 

000209 

CALL  RADGEN(1,VNIN(1),PHI,1RADX,IRADN) 

000210 

F  a  VNIN(l) 

000211 

GO  TO  96 

000212 

94 

FOLD  a  CNIN(l) 

000213 

G  a  VNIN(1) 

000214 

CALL  RAOGEN (1,CNIN(1) ,phi,iradx,iradn» 

000215 

F  =  CNIN(l) 

000216 

96 

IFdRADX.AND.PHl  (l).GT.O.)  PHIXL  a  ALOGlO(PHIdl) 

000217 

IFdRADN.AND.OHI  (21.GT.0.)  PHlNL  a  ALOGIO  (pHI  (2)1 

000218 

IF ( .NOT • ( INKALL.EO. 1 .OR.MODM.EQ. 1) )  GO  TO  100 

0C0219 

WRITE (IT ,97)  M,TIME (MPRIME, 1 ) 

000220 

97 

FORMAT!/, 6H0  M  a,l5,xoX,6HTIME  «,G14.2> 

000221 

WRITE ( I T,98) 

000222 

98 

FORMAT  (  76H  K  VIN  CIN  VOUT  COUT 

000223 

1  P  DPOX  > 

000224 

r 

•« 

000225 

C 

F  a  CURRENT  VALUE  OF  FIXED  INPUT  VARIABLE 

000226 

c 

G  =  CURRENT  VALUE  OF  ADJUSTED  INPUT  VARIABLE. 

000227 

c 

V  =  CURRENT  VALUE  OF  ADJUSTED  OUTPUT  VARIABLE. 

000228 

c 

Y0=  DESIRED  VALUE  OF  ADJUSTED  OUTPUT  VARIABLE. 

000229 

c 

P  a  PRODUCT  OF  TRANSFER  FUNCTIONS  OF  ADJUSTED  OUTPUT  VARIABLE. 

000230 

c 

AK  a  CUPWFNT  GUESS  OF  ADJUSTED  INPUT  VARIABLE. 

000231 

c 

AKla  PREVIOUS  GUESS  OF  ADJUSTED  INPUT  VARI A8LF 

000232 

c 

AK?=  PAST  PREVIOUS  GUESS  OF  ADJUSTED  INPUT  VARIABLE 

000233 

c 

00C234 

\r'j 

if(h.gt.i)  go  to  no 

000235 

00  105  N1  a  1,  NMAX 

000236 

IF ( JPARAL (N l ) )  103*  105,  103 

000237 

103 

N2  a  LMEX  <N1 ) 

0002 3H 

DO  104  N3  a  1,  N? 

Figure  43d.  MAIN  Listing  (cont.) 
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o: 0239 
000340 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
000271 
000272 
000273 
000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
00028S 
000286 
000287 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000298 


LB  =  LRLOCK(Nl,N3> 

104  FACTOR <L8>  =  1.0/N2 

105  CONTINUE 
C 

calculating  first  guess  of  adjusted  input  variable  as  linear  extrapola- 
C  T10N  OF  Last  CONVERGED  value  by  ratio  of  NEW  and  old  fix eo  input 
C  VARIABLE. 

no  if(nextak.ne»o>  go  to  112 

NEXTAK  =  1 

111  A *  =  F  •  Gl/Fl 
GO  TO  120 

112  AK  =  G 

IF  <F>  114*  116.  114 
114  IF1F0L0)  118,  111,  118 
116  A»f  =  0.0 
LPATH  =  2 
NFXTAK  =  0 
GO  TO  160 

118  AK  =  G  *  F/FOLD 

120  IFIM.EO.l. OR. LPATH. EQ.3>  GO  TO  140 
A  =  0.50  «  AK 
B  =  1.S0  •  AK 
GO  TO  145 
140  A  *  AK/EPSLON 
B  =  AK  *  FPSLON 
14S  8NDLO  =  AMlNl <A«B) 

BNDH1  =  AMAX1 (A*8) 

ITERAT  =  0 
C 

150  CALL  DRIVER  ( AK,V.BNDL0,8NDHI » INKALL,ITERaT»LPATH,Y0*F,EPSLON1 

C  150  CALL  newton  (ak.v.bndlo.bnohi .inkall.iterat»lpatm,yo.f,epslon) 

160  GO  TOUTO.ieoi,  IFIXIN 
170  CNIN ( 1 ) =AK 
GO  TO  185 
180  VNIN ( 1 1  a  AK 
185  GO  TO(200. 190.190),  LPATH 
190  DO  192  J  =  1,  JPAX 
VOUT { J.2)  =  VOUT ( J,l) 

192  COUT ( J,2)  *  COUT ( J»l) 

C 

C  THE  200  DO  LOOP  CORRESPONDS  TO  INPUT  NODES. 

C 

200  CONTINUE 

DO  300  N  a  1,  NMAX 

IF ( JPARAL (N) )  235,206,235 

206  LN  =  LMEX (N) 

J  *  LBLOCK(N,LN> 

IF(ABS(VNIN<N) ) .LT.TINY)  VNIN(N)  «  SMALL 
IF(ARS<CNIM(N)).LT.TINY)  CNININ)  *  SMALL 
V!N(J,1>  =  VNIN1N) 

CIN ( J, 1 )  =  CNIN(N) 

ITRSAV  =  ITERAT 
NITER  =  0 

207  NITER  =  NITER  ♦  1 
ITERAT  =  ITRSAV  *  NITER 

209  VOLD  =  VOUTIJ.D 
COLD  r  COUT ( J. n 

IF(ARS<VOLO>. LT.TINY)  VOLD  =  small 
IF (ADS(COLO>. LT.TINY)  COLD  =  SMALL 
GO  TO  (210,220).  KROSS 


Figure  43e.  MAIN  Listing  (cont.) 


000299 

000300 

000301 

000302 

000303 

000304 

00030S 

000306 

000307 

000308 

000309 

000310 

000311 

000312 

000313 

000314 

00031S 

000316 

000317 

000318 

000319 

000320 

000321 

000322 

000323 

000324 

000325 

000326 

000327 

000328 

000329 

000330 

000331 

000332 

000333 

000334 

00033S 

000336 

000337 

000338 

000339 

000340 

000341 

000342 

000343 

000344 

00034S 

000346 

000347 

000348 

000349 

000350 

000351 

000352 

000353 

000354 

000355 

000356 

000357 

000358 


VIN(J,1) 

CJN(J.l) 


FEIJ) 

FI(J> 


210  VOUTlJ.l) 

COUT (J.l) 

00  TO  224 
220  VOUT (J.l)  *  C IN ( J, 1 )  <*  FE ( J) 

COUT  (J.l )  =  VJN  <  J*  1 )  *  FUJI 

224  VTST  =  AOS  (  1.0  -  VOUT I J. 1) /VOLD  ) 

CTST  =  A8S  <  1.0  -  COUT (J,l) /COLD  ) 

IF ( .NOT .  ( ABS ( VOLD)  . GT.O.  )  )  VTST  *  0. 

IF ( .NOT • (ABS (COLO) .07.0.))  CTST  a  0. 

226  IF  < (VTST  ,6T.  VTEST  .OR.  CTST  .6T.  CTEST) 
1)  GO  TO  207 
ITERAT  =  1TRSAV 

230  IF  (  ITERAT  .gT.  1  )  GO  TO  2301 
IF(IRADX)  VOUT ( J»3)  = 

IF(IRADN)  VOUT (U,  3)  * 

COUT (U*3>  = 

COUT  t J. 3)  = 

DAMaGX  =  DAMAGE (J»l) 

DAMAGE <J»2> 

DAMAGN 

2301 


IF(IRADX) 
IF(IRADN) 
IF(IRADX) 
IFURADN)  DAMAGN 
damagt  =  DAMAGX 


PHIXL 

PHINL 

PHIXL 

PHINL 


.AND.  NITER.LE.LIMITO 


FEPHKJ.I) 
FEPHI (  J,2) 
FIPHI(J.l) 
FIPHI (  J»2> 


IF (LPATH.EO. 1)  GO  TO  231 
IF (.NOT . ( IRADX.OR. IRADN) )  GO  TO  231 
VOUT (J.l)  =  V0UT(J,1)#DAMAGT  ♦  VOUT ( J.3) 

COUT (J.l)  =  COUT(J,l)*DAMAGT  ♦  COUT (J.3) 

231  IF ( JPARAL  <N) )  232,232,250 

232  VNOUT(N)  =  VOUT (J.l) 

CNOUT(N)  =  COUT(J.l) 

GO  TO  250 

235  CALL  PaRLEL(N,L8L0CK»LMEX, FACTOR, CNOUT.VNOUT.VNINtCNIN. 

«  inkall*jparal» 

GO  TO  230 

250  VNIN (N*l )  =  VNOUTIN) 

CNOUT(N) 


300 


CNIN(NM) 

CONTINUE 


GO  TO  (301»,440»440)  t  LPATH 

301  GO  TO  (302,304),  KROSS 

302  FEPROD  =  VN0UT(NMAX)/VNIN(1> 

FIPROD  =  CNOUT (NMAX)/CNIN(1> 

GO  TO  308 

304  FEPROO  =  VN0UT|NMAX)/CNIN(1> 

FIPROD  =  CNOUT (NMAX)/VNIN<1> 

C 

308  GO  TO  (310,314),  IFIXOT 
310  P  *  FEPROD 

V  =  VNOUT(NMAX) 

GO  TO  320 

314  P  =  FIPROD 

V  =  CNOUT (NMAX) 

320  IF (ITERAT-2)  322,324,324 
322  OPDX  =0.0 
AK1  =  AK 
GO  TO  328 
324  OP  =  P  -  POLO 
OX  =  AK  -  AK1 

IF (ABS (DX).LT.TINV)  DX  s  SMALL 
OPDX  =  OP/OX 

328  IF (.NOT. ( INKALL.EO.l.OR.MODM.EQ.l) )  GO  TO  342 

330  WRITE (IT, 340) I TERAT, VNIN ( 1 ) .CNIN(l) ,VNOUT (NMAX) , CNOUT (NMAX)  »P»DPDX 
340  F0RMAT(1X,I3,1X,G11.4,1X,G13.6,1X,G11.4,1X,G12.5,1X,G10.3,1X,G11.4 


Figure  43f.  MAIN  Listing  (cont.) 
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000359 

000360 

000361 

000362 

000363 

000364 

000365 

000366 

000367 

000368 

000369 

000370 

000371 

000372 

000373 

000374 

000375 

000376 

000377 

000378 

000379 

000360 

000381 

000382 

000383 

000384 

000385 

000386 

000387 

000388 

000389 

000390 

000391 

000392 

000393 

000394 

000395 

000396 

000397 

000398 

000399 

000400 


1) 

342  AK2  a  AK1 
AK1  a  AK 
POLO  =  P 

COMPLETION  OF  FUNCTION  EVALUATION  FOR  ITERATION  driver. 

GO  TO  ISO 
C 

440  IF<.NOT.(INKALL.E0.1.0R.M0DM.E0.1)>  GO  TO  450 
WRITE  < IT .441 ) 

441  FORMAT!//  128H  J  VIN!J>  CINIJ)  VOUT(J.l)  COUTU.l 

1)  VD1FF  CDIFF  V0UTIJ.2)  COUT! J.2)  V0UT1J.3)  C 

20UT1J.3)  ) 

444  00  445  J  *  1.  JMAX 

VOIFF  =  VIN!J.l)-VOUTtJ,l) 

COIFF  =  CIN ! J, 1 ) -COUT ( J* 1) 

445  WRITE (IT, 446) J.VIN(J.I) .ClNtJ.l) . VOUT ( J. 1 > .COUT ( J» 1 ) »V0IFF»CDIFF 
1 »VOUT ( J.2) .COUT ( J.2) .VOUTtJ.3) .COUTIJ.3) 

446  FORMAT !I3«10(1X«G11<3)) 

450  00  480  J  =  1.  JMAX 

00  460  JIG  *  2.  JT 

JOG  a  JT  -  JIG  ♦  2 
VIN(J.JOG)  a  VINIJ. JOG-1) 

CIN! J. JOG)  a  CIN(J. JOG-1) 

VINTGL(J.JOG)  =  VINTGLIJ. JOG-1) 

CINTGL(J.JOG)  *  CINTGLtJ. JOG-1) 

460  CONTINUE 

00  470  JIG  a  2.  JO 

JOG  a  JO  -  JIG  ♦  2 
VINDTl (J.JOGJ  *  VIN0T1 <J, JOG-1 ) 

CINOT1  (J.JOG)  a  CINOTUJ. JOG-1) 

470  CONTINUE 
480  CONTINUE 

CALL  PLOTEMt0.VNlN.CNIN.VNOUT.CL  ’T.NMAX.INITAL) 

500  CONTINUE 

600  CALL  ELT3(LT1ME) 

WRITE (IT ,610)  LTIME 

610  FORMAT!//  33H  THE  ELAPSED  TIME  REQUIRED  WAS....2A6  t  //) 

CALL  plotfmii.vnin.cnin.vnout.cnout.nmax.inital) 

CALL  PLOTem !2,VNIN,CNIN»VN0UT .CN0UT .NMAX.INITALi 
CALL  RADGEN!2,STIMUL.FHI , IRAOX. IRADN) 

GO  TO  14 
END 


Figure  43g.  MAIN  Listing  (cont,) 
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brought  in  from  drum  files  using  a  sequence  of  read  statements  which  essentially 
treats  the  arrays  as  linear  rather  than  triply  dimensioned  so  that  the  different 
surfaces  can  have  different  dimensions  if  desired.  Pointers  are  calculated  and 
entered  into  the  XYZ  common  block  for  use  later  by  TSURF  and  SURFB.  The  first  data 
card  has  the  surface  number;  the  array  dimensions;  the  x,  y,  and  z  scaling  factors; 
and  the  symmetry  type,  i.e,  whether  even  or  odd.  Then  follow  the  (z,3z/dx,dz/dy) 
cards  totaling  NX  times  MY  (or  200 )  in  number. 

Only  those  surface  arrays  are  read  from  the  drum  files  which  are  to  be  used  in 
a  given  simulation.  The  specific  arrays  are  designated  by  the  first  read,  Format 
number  2.  If  a  specific  surface  is  needed  in  the  computation  and  has  not  been 
read  in,  then  computed  GO  TO's  may  go  out  of  range  during  execution,  and  correct 
pointers  will  not  exist  for  SURFB. 

The  data  read  statements  that  extend  from  the  statement  14  to  statement  74 
bring  in  the  information  on  the  circuit  needed  for  a  given  run.  ISAHE  is  a  rerun 
variable  for  repeating  the  same  circuit;  zero  means  false  or  a  new  circuit,  one 
means  true  or  a  rerun  of  the  same  circuit.  JMAX  is  the  number  of  blocks  in  the 
circuit.  The  read  at  Format  34  calls  in  J  -  the  block  sequence  number  ITAHLE(j,l) 
indicates  the  circuit  element  as  described  by  the  comment  cards  in  FE  and  FT. 

NIN(j)  and  NOUT(j)  are  the  ir.put  and  output  node  numbers  for  a  block,  while  R(j), 
C(j),  and  FL(j)  represent  resistance,  capacitance,  or  inductance  values. 

The  following  statement  calls  SETUP  which  ascertains  the  circuit  configuration 
from  the  node  numbers,  and  tags  these  blocks  in  parallel  branches  for  treatment 
later  during  propagation  by  the  parallel  algorithm  In  PARLEL. 

The  following  READ  statements  are  self-explanatory  as  indicated  by  the  comments 
in  the  WRITE  FORMATS.  IFIXIN  and  IFIXOT  indicate  to  the  program  w>-  ther  the  volt¬ 
age  or  current  is  the  fixed  input  and  output  variables.  From  these  the  variable 
KROSS  is  calculated,  which  is  used  in  many  subroutines  in  computed  GO  TOs  for 
switching  from  the  crossed  to  uncrossed  propagation  strategy.  The  normal  value  for 
IFTXIN  is  one  and  that  for  IFIXOT  is  two.  The  usual  value  for  CNOUT(NMAX)  is  zero. 
VNIN(i)  and  CNIN(l)  are  used  on  the  first  time  step  to  initiate  the  iteration  pro¬ 
cess.  The  remainder  of  the  data  card  stream  is  read  in  by  calls  to  RADGEN,  VOLTIM, 
and  PLOTEH, 
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3.  SUBROUTINE  RADGEN  (N,  STTMUL,  PKI,  IRADX,  IRADN) 


RADGEN  creates  the  radiation  stimulus  applied  to  the  device  during  the  simula¬ 
tion.  The  listing  of  RADGEN  is  contained  in  Figure  **4,  Four  classes  of  forcing 
functions  can  be  used  -  constant,  Gaussian,  Weibull,  or  piecewise  linear.  Both 
neutron  and  X-ray  stimulus  functions  can  be  generated  simultaneously.  Since  the 
radiation  response  surfaces  really  were  created  by  plotting  response  characteris¬ 
tics  from  experimental  radiation  facilities  whose  instantaneous  dose  varies  during 
the  radiation  pulse,  an  "isodosal"  line  actually  ranges  in  dose  in  the  same  manner 
as  did  the  experimental  pulse.  In  other  words,  the  basic  data  were  not  deconvolved 
to  true  instantaneous  dose. 

The  significance  of  this  representation  then  is  that  a  constant  stimulus  func¬ 
tion  will  then  represent  a  simulation  of  the  radiation  pulse  from  the  accelerator 
or  reactor  which  generated  the  basic  data  set  itself.  So  a  constant  stimulus  then 
moves  back  along  an  isodosal  of  the  surface,  and  the  resultant  calculation  is 
portrayal  of  the  experimental  oscilloscope  waveform  whose  peak  dosage  value  corres¬ 
ponds  to  the  isodosal  being  sampled. 

A  still  more  important  aspect  of  this  representation  is  that  this  type  of 
simulation  does  not  require  convolution  of  the  radiation  stimulus  function  in  time 
since  only  one  partition  element  need  move  back  along  the  surface.  If  a  different 
stimulus  function  is  used,  a  family  of  partitions  is  created,  one  at  each  time  step, 
and  convolving  of  running  sums  at  each  time  step  is  required.  These  partitions 
range  over  a  dosage  interval  on  the  surface,  sampling  the  structure  over  a  large 
section  of  the  surface.  Hence,  the  result  of  the  computation  is  an  approximation 
to  that  which  would  be  obtained  if  the  original  data  set  were  deconvolved  initially. 
In  the  next  subsection  we  will  show  two  calculations  for  the  same  dosage  level 
with  and  without  convolution.  The  results  are  surprisingly  close  to  each  other  in 
general  structure.  The  main  result  from  the  viewpoint  of  a  computer  oriented  radia¬ 
tion  simulation  strategy  is  that  simulation  of  the  radiation  facility  type  of  ex¬ 
posure  reduces  the  surface  look-ups  required  by  a  factor  of  25  to  50,  and  hence  is 
fast  in  execution  on  the  computer. 

The  above  discussion  provides  a  basis  for  understanding  the  logical  variable 
K0NV0L  used  in  RADGEN  and  passed  through  the  TIEEX  COMMON  block  for  use  by  the 
convolution  subroutine  C0NV0L.  The  COMMON  block  listings  are  given  in  Figure  45. 
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9  CUT  RADGEN* 1 #720302*  47814  .  I 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000026 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


SUBROUTINE  RAOGEN  (N.STIMUL.PHI .IRADX.IRADN) 

INCLUDE  TIME. LIST 

DIMENSION  RHOI (251 .RH02 (25) »T 1 (25) ,T2(25) .PHI (2) .XPHI (100*2) * 

1YPHI (100.2) 

DIMENSION  ITYPE1 (2) *1TYPE2(2) .NaMEI (2) .NAMF2(2>  »IWEIBL(2> , 

1 IGAUSS (2) .IPlFCf-(2) »IXRAY(2) »NEUTRN(2) .N0PT(2> 

DIMENSION  LA8EL7 (48) ♦  IL ABEL (6,6) *  I POINT (7) .TITLE (12). 

1 IOR IGN (7) ,SKAlE(7> .LAW6 (7) . IPAR (2) , IPOYNT (7) 

LOGICAL  IRADXl.lRADNl, IRADX2.IRA0N2. IRAOX, 1RAQN.KONVOL 
DATA  IN. 11/5.6/ 

DATA  IWCIHL<1>/6MW£IBUL/,IWEIBL{2)/6HL  /„ IGAUSS ( 1 ) /6HGAUSSI/, 

1  IGAUSS (?) /SHAN  /  .  IXRAY ( 1 ) /6HXRAY  /, IXRAY (2) /6H  /. 

2  NEUTRN(1)/6HNEUTR0/.NEUTRN(2)/6HN  /, IPIECE ( 1 ) /6HPIECEW/. 

3  IPIECE (2) /6HISE  /.IBLANK/6H  / 

DATA  1FXP/6HEXR  /. ISPR/6HSPR  / 

DATA  IPOYNT <l)/lHl/t IPOYNT (2) / 1H2/, IPOYNT (3) /1H3/, IPOYNT (4) /lH4/» 
1  IPOYNT (5) /1H5/. IPOYNT (6) /1H6/. IPOYNT (7) /1HX/ 

C  THE  DISTRIBUTION  FORCING  FUNCTIONS  ARE  CALCULATED  BY  USING  THE 
C  FOLLOWING  STATEMENT  FUNCTIONS. 

PWEIRL(TYME, ALPHA, BETA, GAMMA)  =  (BETA  *  ALPHA  **  (-BETA) * (TYME  - 
1  GAMMA)  *•  (BETA-1))**  ( ((TYME-GAMMA) /ALPHA)  *•  BETA) 
PGAUSS(TYUE«A,TAU.SIGMA)=(A/(SIGMA  *  (2*3.14159)  **  0.5))** 

1  ((  TYME  -  TAU)  •*  2  /  (2  *  SIGMA  **  2)) 

PICWIS  (RI.RIP1.TI.TIP1.PHIHAX.TYME)  a  ((RIPl  -  RI)  *  (TYME  -  TI) 

1  /(  TIPI  -  TI  )  ♦  RI)  *  PHIMAX 

C 

C  DATA  ARE  RE AO  WHEN  N  s  0  . 

C 

IF  (N  -  1)  5.  100.  200 
C  INITIALIZATION 

S  IRADXl  =  .FALSE. 

IRAON1  *=  .FALSE. 

IRADX?  »  .FALSE. 

IRA0N2  =  .FALSE. 

IRAOX  s  .FALSE. 

IRADN  =  .FALSE. 

KONVOL ( 1 )  =  .TRUE. 

KONVOL (2)  =  .TRUE. 

RAOTIM  =  0.0 
ILO  =  1 
MOUNT 1  a  o 
MOUNT 2  a  o 
NUMBER  =  C 
c 

READ (IN. 10)  ITYPEI(1>.ITYPE1(2>»NAME1(1).NAME1(2),B1,B2.B3 
10  FORMAT  (4&6.6X.3F10.5) 

IF  (  NAMEKD.EO.  IFXR  .  OR.  NAME  1  (1 )  .EO.  ISPR)  RAOTIM  =  82 
IF  (RAOTIM  .GT.  0.0)  RADTLG  s  AL0G10 (RAOTIM) 

IF (ITYPE1 ( 1 ) .NE. I BLANK. AND. NAME I (1) .NE. IFXR. AND* NAME 1 (1 ) .NE. ISPR) 

I  NUMBER  =  NUMBER  ♦  1 
IF  (NAME  1(1)  .NE,  IPIECE(I))  GO  TO  35 
NSTEPS  =  Bl 
WRITE  (IT, 15)  NSTEPS 
IS  FORMAT  (9HNSTFPS  =  ,13) 

DO  25  1=1,  NSTEPS 

REAOUN.20)  RHOI  (I)  ,T1  (I) 

20  FORMAT  (2F10.5) 

25  WRITE(IT,30)  I.RHOl (I) »I»T1 (I> 


Figure  We.  RADGEN  Listing 
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000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
00007S 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
0001  11 
0001  12 
000113 
000114 
000115 
000116 
000117 
000118 


30  FORMAT!  6HPH01 (  ,13. 5H  1  =  ,Gl2.5»5X,4HTl (  .13. 5H  1  *  »G12.5) 
NSTEP1  =  NSTEPS  -  1 

35  REAOdN,  1  0)  ITYPE2(1)  ,ITYPE2<2)  .NAME2U)  ,NAME2(2>  .C1.C2.C3 
IF  {  NAMF?(l).EO.  IFXR  .OR. NAME 2(1) «EQ«I SPR)  RADTIM  =  C2 
IF (ITYPE2 ( 1 ) .NE. t BLANK. AND. I  TYPE  1 ( 1 ) »NE. ITYPE2 ( 1 ) . AN0.NAME2 ( 1 ) 
1.NE.IFXR.aN0.NAME2(1).NE.ISPR)  NUMBER  =  NUMBER  ♦  1 
IF (NAMF2 ( 1 )  .NE.  IPIECE(l))  GO  TO  60 
NSTEPS  =  Cl 
WRITE  (IT, 15)  NSTEPS 
00  40  1=1.  NSTEPS 

READ ( IN»20>  RH02d)  *  T2<I> 

40  WRITEdT,30)  I.  RH02(T)  .  1,  T2(I> 

NSTEP2  =  NSTEPS  -  1 

60  WRITE ( IT ,65)  »TYP£1 (1 ) » ITYPE1 (2) ,NaME1 (1) *NAME1 <2).B1»B2»B3 
WRITE (IT, 65)  ITYPE2(1),ITYPE2<2) *NAME2(1) »NAME2(2> .C1.C2.C3 

65  format (18H  Radiation  type  =  »  <ja6,  sx.  ishdistrisution  * 

1  2A6  /  5X 

2  32HTHE  3  RESPECTIVE  PARAMETERS  ARE  .3(4X,G12.5) ) 

C 

IF (NUMPEp  -  1)  90,  660.  660 ‘ 

660  REAOdN. 670)  (TITLE(J)  »  3=1.12) 

670  FORMAT (8X , 12A6) 

REAOdN, 675)  SI 7E , (LAREL7 ( J) .3=1,48) ,IORIGN(7) ,SKALE(7) .NUM8ER. 
1  LAWG (7) 

675  FORMAT (A5,48A1,I3,3X,E12.5,I3»3X,I3) 

00  688  1=1,  NUMBER 

688  REAOdN, 680)  IPOINT ( I ) • (ILABEL ( I ,3) ,3=1 ,8) ,  IORIGN(I) ,SKALE(I)  , 
1  LAWG (I) 

680  FORMAT ( A1 , 4X.GA6, I 3. 3X ,E 1 2 .5 ,6X , 1 3) 

C 

90  IF  (ITYPEld)  .EO.  IXRAY (1) )  IHA0X1  =  .TRUE. 

IF  (ITYPFld)  .EO.NEUTRN(l) )  IRAON1  =  .TRUE. 

IF  (IT YPF? ( 1 )  .EO.  IXPAY(l))  IRADX2  =  .TRUE. 

IF  (ITYPE2(1)  .EO.NEJTRN(l))  IRADN2  =  .TRUE. 

IF  (IRADXl  .  OR.  IRA0X2)  IRADX  =  .TRUE. 

IF  (IRAON1  .  OR.  IRA0N2)  IRAON  =  .TRUE. 

C 

C  THE  MEANING  OF  THE  SUBSCRIPTS  ON  PHI  AND  KONVOL  ARE  AS  FOLLOW 
C  1  =  X-RAY  IRRADIATION 

C  2  =  NEUTRON  IRRADIATION 


IF 

((NAHE1 (1) 

.EO. 

IFXR  .AND. 

ITYPE2(1) 

.EO. 

IXRaY(D)  .OR. 

1 

(NAME2 ( 1 ) 

•  EO« 

IFXR  .AND. 

ITYPE 1(1) 

.EO. 

IXRAY ( 1 ) )  .OR. 

2 

(NAME  1  (1) 

•  EO* 

ISPR  .AND. 

ITYPE2U) 

.EO. 

NEUTRN(D)  .or. 

3 

(NAME2 ( 1 ) 

•  EO  • 

ISPR  .AND. 

I  TYPE  1 ( 1 > 

.EO. 

NEUTRN(l) ) )GO  TO  900 

IF(NAME1(|>.E0. IFXR. OR. NAME2(1).E0. IFXR)  KONVOL(l)  =  .FALSE. 
IF(NAME1(1).EO.ISPR.OR.NAME2(1).EO.ISPR)  KONVOL (2)  *  .FALSE. 
RETURN 

C  when  N  =  1,  DIFFERENT  FORCING  FUNCTIONS  ARE  CALCULATED  AND  RETURN 
C  THE  RESPECTIVE  RESULTS  TO  THE  CALLING  PROGRAM. 

100  NN  =  N 

STIMUL  =  VOLTIM(NN) 

TIM  =  TIME(MPRIME.I) 

K=1 

IF  (IRADXl)  GO  TO  110 

IF  (.NOT.IRADNl)  GO  TO  150 

K=2 

110  IF  (NAME  1(1)  .EO.  IWEIBL(l) )  PHI (K)  =  PWEIBL(TIM  ,81.B2»R3) 

IF  (NAMEld)  . EO.  IGAUSS(l))  Pril(K)  =  PGAUSS(TIM  ,B1.B2,B3> 

IF (NAME  1 ( 1 ) .EO. IFXR. OR. NAME I (1 ) .EO. ISPR)  PHI(K)  =  81 


Figure  Mb.  R  A  D  G  E  N  Us  ting  (cont.) 
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000133 

000134 

000135 

000136 

000137 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

00001S 

000016 

000017 

ooooia 

000019 

000020 

000021 

000022 

000023 

000024 

000025 


SAP 


IF  (NAME?(1)  .EQ.  IWEIBL(l) )  PHI  (L)  =  PWEIBLiTIM  ,CUC2*C3) 

1  ♦  OELTA  •  PHI (K) 

IF  (NAME2U)  .EQ.  IGAUSSU))  PHICU  =  PGAUSSUIM  ,Cl.C2,C3) 

1  ♦  DELTA  •  PHI (K) 

IF<NAME2<1).£0.!FXR.0R.NAME2<1>.EQ.ISPR)  PHl(L)  =  Cl 
IF  <NAME?(1)  .NE.  IPIECE(l))  60  TO  200 
DO  180  I  =  IL0.NSTEP2 

IF<(TIM.GT.T2(I).OR..NOT.TIM.LT,T2(I)).AND.TIM.LT.T2(I*1>)GO  T0190 
180  CONTINUE 
1  =  1-1 
190  ILO  =  I 

IP1  =  I  ♦  1 

PHI  (L)  =  PICWIS  (  RH02(I)  ,RH02(IP1)  »T2(I)  ,T2(IP1)  .C2.TIM) 

I  ♦  DELTA  *  PHI (K) 

200  RETURN 

900  WRITE  IIT.910) 

910  FORMAT (S5H  TERMINATED  BY  RADGN2  DUE  TO  INCONSISTENT  DATA  CARDS.) 
STOP 
END 

Figure  44c,  R  A  D  G  E  N  listing  (cont.) 


ELT  COMMON, 7, 720302*  47791  ,  4 

SAP*  FCOPY 
C 

PARAMETER  IX=10»JT=3*JD=3»IS=B 

COMMON/SAP/VlN( IX,3T) ,CIN(IX*JT) ,VINDT1 ( I X , JD) tCINOTl ( IX  * JO) ,R(IX) 

1  ,FL(IX),C(IX), I TABLE ( 16,2) *  TKQ,CDloDE»RSDIOD»ppDIOD»EPSLoN»S 

2  , JEFLAG (IX) ,JIFLAG{IX> ,KROSS,VOUT tl X ,3) ,COUT ( U,3) 

3  ,V1NTGL(IX,JT) ,CINTGL(IX,JT) ,PHI (2) ,KSURF I 16. IS) ,PHIXL 

4  ,PHINL,ITERAT 
C 

END 

TIME*  FCOPY 
C 

PARAMETER  LMAX  =  100 

COMMON/TIMEX/mMAX,M,MPRIME,DT,DLOGT,RADTIM,TRAD*TRADLG,KONVOL<2) 

1 » TJME(LMAX,2) »DTl(LMAX,2) ,TLILMAX»2) .MODULO, MODE 

c 

END 

XYZ*  FCOPY 

c 

PARAMETER  IXLIM=100«IYLIM=100»IZLIM=6006.NSURF=12 
COMMON /XYZ/X (IXLIM),Y (IYLIM) ,Z ( IZLIM) , IPONTR (NSURF ,3) , ISYM  (NSURF) 
l ,XLOW (NSURF ) ,  XHIGH(NSURF) ,  YLOW(NSURF),  YHIGH(NSURF) tlXDIM (NSURF) 
2,IY0IM(NSURF) ,SCALE(NSURF,3) 
c 

END 


PROCEDURE  NAME  TABLE 

00000000  TIME  00000214  XYZ  00000356 


Figure  45,  COMMON  Listing 
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If  the  radiation  data  cards  read  in  by  RADGSN  indicate  that  a  SPR  or  FXR  simula¬ 
tion  is  to  be  made,  then  KOHVOL  is  set  .FALSE,  for  the  appropriate  neutron  or 
X-ray  term.  KONVOL  is  dimensioned  two,  with  the  first  element  denoting  the  X-ray 
term,  and  the  second  element  denoting  the  neutron  term. 

The  entries  in  the  call  list  of  RADGEN  have  the  following  meanings i  H  =  0  is 
an  initialization  call  and  causes  data  cards  to  be  read,  11  =  1.  is  the  normal  entry 

on  subsequent  calls.  STIMUL  is  the  value  of  the  voltage  stimulation  function 

obtained  by  a  call  to  VOL  TIM,  PIC  is  an  array  of  dimension  two  which  returns  the 
radiation  forcing  function  values  to  MAIN.  PHl(i)  is  the  X-ray  and  PHl(2)  the 
neutron  dosage  values.  The  logical  variables  IRADX  and  IRAKI  are  set  .TRUE,  if 
a  particular  run  requires  X-ray  or  neutron  simulation,  and  are  passed  back  to  MAIN 
through  the  call. 

The  actual  READ  statements  of  RADGEM,  using  FORMAT  10,  as  shown  in  Figure  44, 
read  in  the  control  variables  ITYPE  and  NAME  which  denote  type  of  radiation,  X-ray 

or  neutron,  and  the  name  of  the  distribution  function  by  which  it  is  to  be  represen¬ 

ted  as  given  above.  IFXR  or  ISPR  is  the  NAME  applied  for  those  simulations.  The 
constants  Bl,  B2,  and  B3  are  used  to  bring  in  the  peak  dose  level,  radiation  distri¬ 
bution  time,  location  parameter,  and  the  distribution  width  parameter. 

If  a  piecewise  linear  radiation  function  is  called  for,  then  pairs  of  (dosage, 
time)  points  are  read  in.  If  the  radiation  dose  level  is  generated  by  the  distri¬ 
bution  function  or  the  piecewise  representation,  plot  title  and  control  information 
is  read  in  by  statements  660  through  680.  This  will  cause  PL0T6  to  make  printer 
and  machine  plots  of  the  radiation  forcing  function, 

4.  FUNCTION  SUBPROGRAM  VOLTTM 

Data  cards  are  read  in  by  VOLTIM  as  indicated  by  the  listing  of  Figure  46,  These 
permit  a  sinusoidal  or  piecewise  linear  voltage  forcing  function  to  be  created  by 
VOLTIM.  In  addition  one  data  card  is  read  in  at  statement  40  which  reads  the  start 
and  stop  times,  the  radiation  start  time,  the  number  of  time  steps,  the  option 
setting  and  the  mode  of  the  time  base  -  that  is  whether  linear  or  logarithmic. 

An  important  function  performed  by  VOLTTM  is  to  load  the  TIME  and  DTL  arrays 
which  are  used  in  the  convolution  calculations  by  CJ0NV0L.  The  first  columns  in 

these  arrays  contain  the  values  of  time  and  differential  time  dt  in  a  linear 
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9  SLT  VOLT 1M. 1,720302.  50484  ♦  1 


000001 

000002 

000003 

000004 

ooooos 

000006 

000007 

000006 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


FUNCTION  VOLTIM(N) 

INCLUOF  TIME. LIST 
OIMENSION  V<1?)»  T( 12) 

DIMENSION  TUNITO).  T SCALE (3) 

INTEGER  OPTION.OPTLIN.OPTLOG.TUNIT.UNIT 
DATA  IN. TT/5,6/ 

DATA  NANSEC/6HNANO  S/.MICSEC/6HMICR0S/.MILSEC/6HMILUS/ 

DATA  0PTL0G/6HL0G  /.0PTLIN/6HL INEAR/ 

IF  (N.NE.O)  GO  TO  50 
ILO  =  1 
MODULO  s  o 
OLOTIM  =  0.0 
OLDLOG  =  0.0 
TRADLG  -0.0 
READ  (IN.IO)IOPT 
10  FORMAT (13) 

WRITE  ( IT .  17) I0PT 

17  FORMAT (26H0FORC1NG  FUNCTION  OPTION  a, 13) 

GO  TO  (16.30).  IOPT 

18  READ  (IN, 12) A, FRED 
12  FORMAT (2(E1S.8«SX)) 

WRITE  (1T.19)A.FRE0 

19  FORMAT (3H0A=E15. 8. 5X.6H  FREQ=.£l5.8) 

OMEGA  =  2.0*3.141592654*FREQ 

GO  TO  40 

30  READ (IN. 10)  NSTEPS 
WRITE(IT,31>  NSTEPS 

31  FORMAT (//69H  A  PIECEWISE  LINEAR  FORCE  FUNCTION  IS  USED  WITH  THE  NU 

1MBER  OF  STEPS  =  .13./  31H  FUNCTION  TIME  UNIT  ) 

00  36  1=1,  NSTEPS 

READ(IN«34)  V(I),T(I>.  UNIT 
WRITE (IT ,35)  V(I) »T(I) ,  UNIT 

34  FORMAT (2E12. 8, A6) 

35  FORMAT (2X,2G12.4,a6) 

IF(UNIT.EO.NANSEC)  TSC  =  1.0 
IF(UNIT.EO.MICSEC)  TSC  =  1.0E«3 
IF(UNIT.EO.MILSEC)  TSC  =  1.0E*6 

IF (UNIT. NE.NANSEC. AND. UNIT, NE.MICSEC.AND.UNIT.NE.MILSEC) 

1  WRITE (I T ,38) 

36  Til)  =  T(I)  *  TSC 

38  FORMAT <5X,  50H  The  UNIT  MULTIPLIER  IS  NOT  CORRECT  FOR  THE  TIME.  ) 
NiTEPl  =  NSTEPS  -  1 

40  REAO(IN.41)  ISTART.TUNIT(I).  ISTOP,  TUNIT (2) .  IRAOTM.  TUNIT(3). 
1MMAX,  OPTION 

41  FORMAT (5X,3<I6.1X,A6,2X) ,5X.I5»5X,A6) 

WRITe(IT,*1) ISTART.TUNIT(l).  ISTOP.  TUNIT (2) .  IRADTM,  TUNIT(3). 
IMMAX,  OPTION 
DO  42  K  =  1,3 

IF  (TUNIT <K>  .E«.  NANSEC)  TSCALE(K)  =  1.0 

IF  (TUNIT (K)  .ED.  MICSEC)  TSCALE(K)  =  1.0E»3 

IF  (TUNIT (K)  .ED.  MILSEC)  TSCALE(K)  =  1.0E*6 

IF  (TUNIT (K) .NE.NANSEC. AND. TUNIT (K) .NE. MICSEC. AND. TUNIT (K) .NE.MILSE 
1C)  WRITE ( IT .38) 

42  CONTINUE 

TST ART  =  ISTART  *  TSCALE(l) 

TSTART  =  AMAX1 (TSTART.l.) 

TSTOP  =  ISTOP  *  TSCALE (2) 


Figure  *(6a,  V  0  L  T  I  M  Listing 


000059 

RADTIM  =  IRAOTM  *  TSCALE (31 

000060 

IF  (OPTION  .£0.  OPTLIN)  MODE  a  1 

000061 

IF  (OPTION  .EQ.  OPTLOO)  MODE  *  2 

000062 

WRITE  (IT, 46)  OPTION 

000063 

IF(OPTION.NE.OPTLIN.ANO.OPTION.NE.OPTLOG>  stop 

000064 

46 

1  FORMAT (10X*A6»21H  TIME  STEPS  ARE  USED.  /  ) 

000065 

GO  TO  (47,48) ♦  MODE 

000066 

47 

A 1  =  TSTART 

000067 

A2  =  (TSTOP  -  TSTART)  /  (MMAX  -  1) 

000068 

return 

000069 

48 

A1  =  ALOGIO(TSTART) 

000070 

AH  =  (ALOCrlO(TSTOP/TSTART>  )/(MMAX  -  1) 

000071 

RETURN 

000072 

C 

000073 

c 

ENTRY  POINT  ON  ALL  BUT  FIRST  CARD  READ  OPERATION 

000074 

c 

MODE  =  1  CORRESPONDS  TO  A  LINEAR  TIME  BASE. 

000075 

c 

MODE  =  2  CORRESPONDS  TO  LOGARITHMIC  TIME  BASE. 

000076 

c 

000077 

50 

MPRIME  =  M  -  MODULO  *  LMAX 

000078 

IFIMPRlMf .EQ.LMAX)  MODULO  *  MODULO  ♦  1 

000079 

GO  TO  (52,54),  MODE 

000080 

52 

TIME(MPRTMEtl)  =  AMAX1((A1*(M-1)*A2),I.> 

000081 

TIME (MPRIME, 2)  =  ALOGlO(TIME(MPRIMEtl>> 

000082 

GO  TO  55 

000083 

54 

TIME(MPRIME.2)  =  A1  ♦  (M-ll  *  A2 

000084 

TIME(MPRIM£,1)  *  10.0**TIME<MPRIME*2> 

000085 

55 

IF(M-l)  1055,  1055,  4055 

000086 

1055 

GO  TO(205S,305S) ,  MODE 

000087 

2055 

D1  =  A2 

000088 

OLOGT  =  ALOGIO(OT) 

ooooe9 

GO  TO  5055 

000090 

3055 

DLOGT  =  A? 

000091 

DT  =  10.0**DLOGT 

000092 

GO  TO  505S 

000093 

4055 

DT  =  TIME(HPRIME,1)  -  OLDTIM 

000094 

DLOGT  =  TIME (MPRIME, 2)  -  OLDLOG 

000095 

5055 

OLDT1M  =  TIME (MPRIME, 1) 

000096 

OLOLOG  =  TIME(MPPIME,2) 

000097 

DTL (MPRIME, 1)  =  DT 

000098 

DTL (MPRIME ,2)  S  DLOGT 

000099 

TRAD  =  TIME(MPRIME,1)  -  RAOTlM 

000100 

TRAOLG  =  AL0G10 ( AMAX1 (TRAD.l • ) ) 

000101 

IHI  s  MPRIME 

000102 

IF(MODULO.GT.o)  IHI  S  LMAX 

000103 

00  56  1=1,  IHI 

C00104 

TL(I,1)  =  TIME(MPRIME,1)  -  T IM£ (1,1) 

000105 

56 

TL(I,2)  =  TIME(MPRIME,2>  -  TIME(I,2) 

OOul 06 

C 

000107 

S8 

GO  T0(59,(,0)  ,  IOPT 

000108 

59 

VOLTIM  =  A*  SIN (OMEGA*TIME (MPRIME, 1 ) ) 

000109 

RETURN 

000110 

60 

DO  70  I  =  ILO,  NSTEP1 

000111 

IF( (TIME (MPRIME, U.GT.T (I). OR.. NOT. TIME (MPRIME,!) 

000112 

1 

TIME(MPR1ME,1).LT.  T(I*1>)  GO  TO  80 

000113 

70 

CONTINUE 

000114 

1  =  1-1 

000115 

80 

ILO  =  I 

000116 

VOLTIM  =(V(I*l)-V(I))*(TIME<MPRIME.l)-T(I))/(T(I*: 

000117 

200 

RETURN 

000118 

END 

Figure  ^b.  V  0  L  T  I  M  Listing  (cont.) 
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representation,  while  the  second  column  contains  the  same  in  a  logarithmic  basis. 
These  arrays  are  moduloed  down  to  a  maximum  size  of  LMAX  if  the  number  of  time 
steps  exceeds  LMAX,  An  interesting  aspect  of  convolutional  computational  methods 
is  that  the  response  of  old  stimuli  fade  away  as  the  partitions  reach  the  flat 
portions  of  the  surface;  hence,  a  restricted  prior  time  span  is  usually  quite 
sufficient.  Thus,  LMAX  does  not  need  to  be  more  than  a  few  hundred, 

5.  SUBROUTINE  DRIVER 

DRIVER  is  essentially  a  Newton-Raphson  iteration  routine  which  has  added 
features  to  attempt  to  cope  with  some  of  the  problems  that  occur  in  a  zero-finding 
problem  such  as  this.  The  routine  looks  for  sign  changes  on  the  function  P  versus 
variations  in  the  iterate,  which  is  the  adjusted  input  variable  x.  When  a  sign 
change  occurs,  an  upper  or  lower  bound  is  moved  in  to  contain  the  iterate.  This 
is  normally  a  wise  strategy  provided  the  root  does  not  slide  with  the  iterate,  as 
may  happen  in  some  non-linear  problems.  Root  sliding  can  also  occur  if  the  itera¬ 
tion  process  has  terms  carrying  over  from  prior  iterates  or  tir.e  steps  (the  compu¬ 
tational  delay  problem).  The  listing  of  DRIVER  is  given  in  Figure  47. 

Another  difficult  class  of  problem  for  an  iteration  driver  routine  is  the  case 
of  an  oscillating  derivative  accompanied  by  no  zero  crossing.  The  iterate  is  then 
trapped  at  a  local  minimum,  and  cannot  escape.  The  strategy  employed  here  is  to 
allow  so  many  trials  which  do  not  yield  a  sign  change,  and  then  to  initiate  a  step 
and  search  procedure  which  expands  the  iteration  zone  by  an  arbitrary  factor. 


The  expansion  of  the  search  zone  can  lead  to  an  instability  in  the  iteration 
process.  The  situation  is  improved  if  the  function  P  is  relatively  free  of  path¬ 
ological  dependencies  on  the  computational  process.  Care  in  arranging  statements 
that  compute  transfer  functions  proved  of  significance  in  this  regard,  so  that  an 
intrinsic  computational  delay  does  not  lead  to  oscillations  on  the  next  iterate. 
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f>  ELT  DRIVER*  1*720302*  47802  ♦  1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

0000S2 

00005.3 

000054 

0000S5 

000056 

000057 

000058 


SUBROUTINE  DRIVER<XITER.'UNCT.LWRBND,UPRBND»IPRINT,ITERAT,LPATH,  DRI 
1  Y0»F*EP5LON) 

C 

C  STEWART  RESEARCH  ENTERPRISES.  23376  BEL VOIR  DR.*  LOS  ALTOS.  CALIF. 

C 

C  ITERATION  ORIVER  FOR  MAIN. 

C 

OIMENSION  ROOTS (3) 

REAL  LWRRND 
LOGICAL  SKIP 

DATA  SKIP/. TRUE. /■*ITNMAX/35/*.RATIO/1000./. ETA/2. E-6/ 

DATA  IT/6/  .CHANGE/. 5/ 

DATA  MAXR/3/*NS/0/*ROOTS(1) /0.0/. ROOTS <21/0. 0/*NFOUND/2/»NTOTAL/l/ 
DATA  TINY/1. £-20/,  SMALL/1. E-12/ 

C 

IF (ITERAT.NE.O)  GO  TO  243 
C 

C  FIRST  PASS.  USE  GIVEN  ITERATE. 

C 

NHELP  =  0 

5  OELTA= (UPRBNO-LWRBND)/ (RAT I0*XITER> 

GR  =  XITER/U.  ♦DELTA) 

NRTS=MIN0 INTOTAL, MAXR) 

WRIT£(IT,7> 

7  FORMAT (1H**80X,4H  M,9X,3HRLX*9X,3HRUX*10X»fcHPOLE> 

IF  (NRTS.GT.01  GO  TO  9 
WRITE  <6,Q)NF0UND,NT0TAL»MAXR 

8  FORMAT (22HOZERO  ROOTS  REQUESTED. ,3161 
GO  TO  300 

9  N4=NF0UND 


NTG=1 

NEWRO 

OX= (UPR8ND-LWR3ND1  /20. 

D/=DX«1. 0000001 

IP0LE=0 

NEWRO 

POLE=LWRBNO 

RLX=LWR8N0 

RUX=UPRBND 

NEWRO 

10 

GR=AMftXl <gr*lwrbndi 

XITER=GR*(1.0*DELTA) 

ITN=0 

NEWRO 

NBK=0 

NEWRO 

IFV=0 

NEWRO 

M=1 

NEWRO 

GO  TO  240 

2ND  PASS,  ITERATE  IS  RATIO  OF  FIRST  DEPENDING  ON  BOUNDS. 

NEWRO 

15 

Xl-XITfR 

NEWRO 

Y1=FUNCT 

NEWRO 

Ll=NS 

NEWRO 

XITER=GR 

NEWRO 

M=2 

NEWRO 

GO  TO  240 

3RD  PASS,  USE  NEWTONS  METHOD. 

NEWRO 

20 

X2=XITfR 

NEWRCj 

Y2=FUNCT 

NEWPO 

Figur.3  47a e  D  RI  V  E  R  Listing 
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000059 

L2=NS 

NEWRO 

000060 

00  TO  90 

NEWRO 

000061 

C 

000062 

C 

4TH  AND  FOLLOWING  PASSES. 

LOOK  FOR  ZERO  CROSSINGS. 

000063 

C 

000064 

25  IF  (NBK.EQ.l)  GO  TO  65 

NEWRO 

000065 

IF  (FUNCT«Y2)  35,35,30 

NEWRO 

000066 

30  IF  <FUNCT*Yll  35,35,65 

NEWRO 

000067 

C 

IF  FIND  ONE*  SET  NBK  =  1 

000066 

35  N8K=1 

NEWRO 

000069 

IF  (X1.LT.X2)  GO  TO  40 

NEWRO 

000070 

XsXl 

NEWRO 

000071 

X1=X2 

NEWRO 

000072 

X2=X 

NEWRO 

000073 

YsYl 

NEWRO 

000074 

Y1=Y2 

NEWRO 

000075 

Y2=Y 

NEWRO 

000076 

L  LI 

NEWRO 

000077 

L1=L2 

NEWRO 

000078 

L2=L 

NEWRO 

000C79 

40  IF  (Xl.LT.XITER)  GO  TO  ‘  > 

NEWRO 

000080 

XsXITER 

NEWRO 

000081 

XITER=X1 

NEWRO 

000082 

X1=X 

NEWRO 

000083 

Y=FUNCT 

NEWRO 

000084 

FUNCT=Y1 

NEWRO 

000085 

Y1=Y 

NEWRO 

000086 

L=NS 

NEWRO 

000087 

NS=L1 

NEWRO 

000088 

L1*L 

NEWRO 

000089 

45  IF  (X2.LT.XITER)  GO  TO  SO 

NEWRO 

000090 

X»X2 

NEWRO 

000091 

X2=XITER 

NEWRO 

000092 

XITER=X 

NEWRO 

000093 

Y=Y2 

NEWRO 

000094 

Y2*FUNCT 

NEWRO 

000095 

FUNCT=Y 

NEWRO 

000096 

L=L2 

NEWRO 

000097 

L2=NS 

NEWRO 

000098 

NS=L 

NEWRO 

000099 

50  IF  (Y1«Y21  55,55,60 

NEWRO 

000100 

C 

000101 

c 

MOVE  BOUNDS,  PLX  AND  RUX, 

IF  HAVE  CROSSING. 

000102 

c 

MOVING  SOUNDS  AS  CLOSE  IN 

ON  CROSSING  CAN  BE  BAD  IF  FUNCTION  IS 

000103 

c 

PATHOLOGICAL  SUCH  THAT  ROOT  SLIDES  WITH  ITERATE. 

000104 

c 

000105 

55  RLX=X1 

NEWRO 

000106 

RLY=Y1 

NEWRO 

000107 

NRL=L1 

NEWRO 

000108 

RUX=X2 

NEWRO 

000109 

RUY=Y2 

NCWRO 

000110 

NRU-L? 

NEWRO 

000111 

GO  TO  90 

NEWRO 

000112 

60  RLX=X2 

NEWRO 

000113 

RLYSY2 

NEWRO 

000114 

NRL=L2 

NEWRO 

000115 

RUX=XITER 

NEWRO 

000116 

RUY=FUNCT 

NEWRO 

000117 

NRU=NS 

NEWRO 

000118 

X1*RLX 

NEWRO 

Figure  47 b.  DRIVER  Listirg  (cont.) 
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000119 

Y1*RLY 

NEWRO 

000120 

L1=NRL 

NEWRO 

000121 

X2=RUX 

NEWRO 

000122 

Y2=RUY 

NEWRO 

000123 

L2*NRU 

NEWRO 

000120 

60  TO  90 

NEWRO 

000125 

65 

X1=X2 

NEWRO 

000126 

Y1=Y2 

NEWRO 

000127 

L1=L2 

NEWRO 

000126 

X2=XITER 

NEWRO 

000129 

Y2=rUNCT 

NEWRO 

000130 

L2=NS 

NEWRO 

000131 

IF  (NBK.EO.O)  GO  TO  90 

NEWRO 

000132 

IF  (FUNCT)  70.70.80 

NEWRO 

000133 

70 

IF  (RLY)  75.75.85 

NEWRO 

000134 

75 

RLX=XITER 

NEWRO 

000135 

GO  TO  90 

NEWRO 

000136 

BO 

IF  (RUY)  75.75.85 

NEWRO 

000137 

85 

RUX=XITER 

NEWRO 

000138 

C 

90 

IT.)=ITN*1 

000139 

90 

T1=Y1 

000140 

T2=Y2 

000141 

IF (SKIP)  GO  TO  94 

000142 

1=HAX0(L1.L2) 

000143 

T1=Y1«2.«»<L1-I) 

.  NEWRO 

000144 

T2=Y2«2.«*(L2-I) 

NEWRO 

000145 

94 

M=3 

NEWRO 

000146 

IF  (T2-T1)  100.95.100 

NEWRO 

000147 

95 

XITER=X1..5*(X2-X1) 

NEWRO 

000146 

GO  TO  105 

NEWPO 

000149 

C 

0001S0 

100 

X2MX1  *  X2  «  Xl 

000151 

T2MT1  =  T?  -  T1 

000152 

IF(ABS(T2HTl).LT.TINY.AN0.ABS«X2MXl).GT 

.{T2MT1/SMALU1 

T2MT1=SMALL 

000153 

C 

000154 

C 

BASIC  ITERATION  EQUATION. 

000155 

XITER  s  XI  -  T1  *  X2MX1/T2MT1 

000156 

C 

000157 

IF  (N3K.E0.1)  GO  TO  110 

NEWRC 

000158 

105 

IF  (XITER.LT.LWRBNO.OR.XITER 

.GT 

•UPRBND) 

GO 

TO  200 

000159 

no 

NTEST=2 

NEWRC 

000160 

IF  (ABS«XITER-X2).LT.ETA*ABS<XITER)>  GO 

TO 

125 

000161 

IF(ABS(FUNCT).1_T.EPSL0N*ABS(XITER1.AN0. 

ITERAT.GE.2)  GO 

TO  135 

000162 

IF  (NBK.EO.O)  GO  TO  130 

NEWRO 

000163 

IF  (RLX-XITER)  115.240.120 

NEWRO 

000164 

115 

IF  (XITER-RUX)  240.240.120 

NEWRO 

000165 

C 

000166 

c 

RESETTING  ITERATE  IF  OUTSIDE 

OF 

BOUNDS. 

000167 

c 

000166 

120 

XITER= (RLX.RUX) /2. 

NEWRO 

000169 

GO  10  240 

NEWRO 

000170 

125 

IF  (ABS(XITER-Xl).LT.ETA  •  ABS(XITER) 1 

GO  TO  135 

000171 

IF( (T1*T2) .LT.O.)  XITER=X1». 

8* (X2-X1 ) 

000172 

130 

M=3 

NEWRO 

000173 

IF  (ITN-15  )  240.240.200 

000174 

135 

IF (ABS (FUNCT). GT.ABS(XITERl) 

GO 

TO  200 

000175 

c 

000176 

c 

ROOT  FOUNO. 

000177 

c 

000176 

N4=MIN0(N4*1»MAXR) 

NEWRC 

Figure  4?c.  DRIVER  Listing  (cont.) 
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000179 

ROOTS (N4)=XiTfR 

NEWRO 

000180 

000181 

000182 

GR=AMAX1 C.8*A8S(XITER) ,l.S*LWRBND) 

IFCIPRINT.NE.O) 

1WRITE  (6.1401XITER.ITN.IFV.NTEST 

NF.WRC 

000183 

140  FORMAT (7h  ROOT  *.E14.8»5X,6HITNS  =.I3»5X»6HEVAL  =*I3.SX,8HTEST 

NO. NEWRO 

000184 

1  * I2*60X*3H***1 

NEWRO 

000185 

000186 

IFV=0 

IPOLE=0 

NEWRO 

000187 

RLX=0. 

NEWPfl 

000188 

RUX=0. 

NEWRO 

000189 

000190 

NRK-0 

ITN=0 

NEWRO 

000191 

IF  (NRTS-N4)  145,145.10 

NEWRO 

000192 

C 

NEWRC 

000193 

C 

SORT  THE  ROOTS  IN  ASCENDING  ORDER. 

NEWRC 

000194 

C 

NEWRC 

000195 

1-  5  N7=N4-1 

NEWR( 

000196 

IF  <N7.LF.01  GO  TO  155 

NEWRC 

000197 

DO  150  1=1 »N7 

NEWRC 

000198 

K=I*1 

NEWRC 

000199 

DO  150  J=K  *N4 

NEWRC 

000200 

IF  (ROOTS(I) .LT.ROOTSC J) 1  GO  TO  150 

NEWRC 

000201 

Tl=ROOTS<I> 

NEWRC 

000202 

ROOTS <I)=ROOTS<J) 

NEWRC 

000203 

ROOTS (J) =T1 

NEWRlj 

000204 

ISO  CONTINUE 

NEWRO 

000205 

155  IF  (N4.GE.HAXR1  GO  TO  295 

NEWRfl 

000206 

C 

NEWRO 

000207 

C 

CHECK  INTERVALS  BETWEEN  ROOTS  FOR  SIGN  CROSSINGS. 

NEWRO 

000208 

000209 

C 

ITN=0 

NEWRC 

000210 

I=NXG-1 

NEWRO 

000211 

M=6 

NEWRO 

000212 

NBK=1 

NEWRO 

000213 

160  I=‘  I 

NEWRO 

000214 

N«5-l 

NEWRC 

000215 

IF  (I.GT.N4)  ROOTS <I)=UPRBND 

NEWRC 

000216 

IF  U.EO.ll  GO  TO  165 

NEWRC 

000217 

XITER=ROOTS( 1-11*1. 001 

NEWRC 

000218 

X= (ROOTS ( I ) -ROOTS (I-l)  1/9.99 

NEWRC 

000219 

IF  (X.LT..01)  GO  TO  195 

NEWRC 

000220 

IF  (M-6)  240,240,175 

NEWRC 

000221 

165  X=(R00T5( 1 1 -LWRBNDl/9.99 

NEWRC 

000222 

IF  (X.IT..01)  GO  TO  195 

NEWRC 

000223 

xiter=lwrrnd 

NEWRC 

000224 

GO  TO  240 

NEWRC 

000225 

170  X.=X1TER 

NEWRC 

000226 

Y2*FUNCT 

NEWRC 

000227 

L2=NS 

NEWRC 

000228 

175  DO  190  J=lt!0 

NEWRC 

000229 

XITER=AMIN1 (XlTER^XfUPRBND) 

NE’-RC 

000230 

M=7 

NEWRC 

000231 

GO  TO  240 

NEWRC 

000232 

180  IF  (Y2*FUNCT)  60,60*185 

NEWRC 

000233 

185  X2=XITER 

NEWPC 

000234 

Y2=FUNCT 

NEWRC 

000235 

L?=NS 

NEWPC 

000236 

190  CONTINUE 

NEWRC 

000237 

195  IF  (1.GT.N4)  GO  TO  295 

NEWRC 

000238 

IF  (I-NRTS)  160*295.295 

NEWRC 

Figure  47d,  DRIVER  Listing  (cont.) 
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000239 

C 

NEWRO 

000240 

c 

SEARCH  FOR  A  MORE  SUITABLE  GUESS. 

NEWRO 

000241 

c 

NEWRO 

000242 

200 

IF  (NHELP  .GT.4)  GO  TO  145 

NEWR 

000243 

NHELP  =  NHELP  ♦  1 

000244 

ITN-0 

000245 

NBK  =  0 

000246 

c 

000247 

c 

MAYBE  TRAPPED  BY  SLIDING  ROOT.  FIRST  TRY  MOVING  BOUNDS  OUT. 

000248 

c 

000249 

CHANGE  =  CHANGE  **NHELP 

000250 

IF(XITFR)  202.202.203 

000251 

202 

LWR8N0  =  LWRBND  /  CHANGE 

000252 

UPRBND  *  UPRBNO  *  CHANGE 

000253 

GO  TO  204 

000254 

203 

LWRBND  =  LWP8ND  *  CHANGE 

000255 

UPR8N0  =  UPRBND  /  CHANGE 

000256 

204 

RLX  =  LWRRNO 

000257 

RUX  =  UPP8ND 

000258 

POLE*  LWRBND 

000259 

DX*  (UPRBND  -  LWRBND) /20.0 

000260 

IF1NHELP.LE.2)  GO  TO  65 

000261 

c 

000262 

c 

NOW  TRY  SYSTEMATIC  STEPPING.  (PUSH  THE  P««?C  BUTTON). 

000263 

c 

000264 

XITER=P0LE 

NEWfK 

000265 

IF  (IPOLE.NE.O)  GO  TO  201 

000266 

IPOLE=l 

000267 

M=4 

'  NE'tfRC 

000268 

GO  TO  240 

NEWRC 

0C0269 

201 

FUNCT=RFUNCT 

000270 

NS=NNR 

000271 

205 

X2=XITER 

NEWRC 

000272 

Y2=FUNCT 

NEWRO 

000273 

L2=NS 

NEWRO 

000274 

M=5 

NEWRC 

000275 

210 

POLE-AMIN1 (POL£*OX, UPRBND) 

NEWRC 

000276 

XITER=POLE 

NEWRC 

000277 

GO  TO  240 

NEWRC 

000278 

215 

X1=X2 

NEWRC 

000279 

Y1*Y2 

NEWRC 

000280 

L1=L2 

NEWRC 

ooo?ei 

X2*XITER 

NEWRC 

000282 

Y2=FUNCT 

NEWRC 

000283 

L2=NS 

NEWRC 

000284 

RFUNC7=FUNCT 

000285 

NNR-NS 

000286 

IF  (Y1*Y2)  25,25,220 

NEWRC 

000287 

220 

IF  (L2-L1)  90,225,230 

NEWRI 

000288 

225 

IF  ( ABS ( Y2) ”ABS(Y1))  90,230,230 

NEWRI 

000289 

230 

IF  (XITER-UPRBND)  210,235,235 

NEWRI 

000290 

235 

NHELP=l 

NEWRI 

000291 

GO  TO  145 

NEWRI 

000292 

c 

NEWRI 

000293 

c 

COMPUTE  FUNCTION  AND  DIVIDED  FUNCTION. 

NEWRI 

000294 

c 

NEWRI 

000295 

240 

IF  (XITER.GT. UPRBND)  GO  TO  200 

NEWRI 

000296 

NTEST=1 

NEWRI 

000297 

IFV=IFV, 1 

NEWRI 

000298 

ITN  =  ITN  ♦  1 

Figure  47e.  DRIVER  Listing  (cont.) 
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000299 

iterat=iterat  ♦  1 

000300 

LPATh=1 

000301 

return 

000302 

C 

return  for  function  evaluation. 

000303 

C 

000304 

C 

ENTRY  POINT  WITH  NEW  FUNCTION  VALUE. 

000305 

C 

000306 

243 

IF(ITERAT.OE.ITNMAX)  GO  TO  296 

000307 

WRITE (IT .244)  M,RLX,RUX,POLE 

00030S 

244 

FORMAT (lH*,83X,ll,4X, 3(612.4)) 

000309 

T1=FUNCT 

000310 

N2=NS 

NEWRO 

000311 

IF(FUNCT.EO.O.O.ANO.XITER.NE.O.O)  60  TO  135 

000312 

245 

IF  (N4.EO.O)  GO  TO  255 

NEWRO 

000313 

C 

000314 

C 

SCALER  IS  NEEOED  WHEN  FUNCTION  VALUES  TAKE  ON  EXTREME  VALUES  DUE 

000315 

C 

TO  DIVIDING  BY  ROOTS  ALREADY  FOUND.  IN  CASES  OF  MULTIPLE  ROOTS. 

000316 

C 

000317 

C 

IF  SCALER  IS  REQUIRED,  SET  SKIP  =  .FALSE. 

000318 

IF(SKIP)  GO  TO  275 

000319 

00  250  L=1,N4 

NEWR( 

000320 

FUNCT=FUNCT/(XITER-R00TS(L>) 

NEWR( 

000321 

CALL  SCALER (FUNCT.J) 

000322 

250 

NS*NS* J 

NEWR( 

000323 

255 

IFUPRINT1  260.270.260 

000324 

260 

WRITE  (6,?65>XIT£R,FUNCT.NS.T1»N2»M,RLX»RUX 

000325 

265 

FORMAT (E20.8»5X«2(E9»3.I4) .I8.5x.2E15.81 

000326 

270 

IF  (FUNCT1  275.260.275 

000327 

C 

000328 

C 

BASIC  STEERING  SWITCH  TO  DIFFERENT  STRATEGIES. 

000329 

C 

^00330 

275 

GO  TO  (15, 20, 2S. 205, 215*170*180) »M 

NEWRI 

1)00331 

280 

NTEST=6 

NEWRI 

000332 

GO  TO  135 

000333 

295  NT0tAL=N4 

NEWRI 

000334 

296 

IF(ITERAT.GE.ITNMAX)  WRITE (IT.298) 

00033S 

298 

FORMAT (36H  DRIVER  ITERATION  MAXIMUM  EXCEEDED.) 

000336 

300 

LPATh=2 

000337 

IF  (ITERAT. GE.ITNMAX)  LPATH=3 

000338 

RETURN 

000339 

C  300 

RETURN 

000340 

C 

termination  tests 

NEWRI 

000341 

C 

1  =  NORMAL  ROOT  ACCEPTANCE,  F(X)xq. 

000342 

C 

2  =  normal  convergence  to  epslon 

000343 

C 

3  =  MAXIMUM  ITERATION  COUNT  (100)  EXCEEDED. 

NEWRI 

000344 

C 

6  =  DIVIDED  RESIDUAL  WENT  TO  ZERO  (CAUSED  BY  MULTIPLE  ROOTS) 

.NEWRi 

000345 

END 

NEWRi 

Figure  4?f.  DRIVER  Us  ting  (cont.) 
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Fcr  certain  types  of  zero-finding  problems,  such  as  polynomial  evaluations, 
more  than  one  root  may  exist  over  the  range  of  variation  of  the  iterate.  In 
such  cases  DRIVER  divides  the  original  function  P  by  the  root  already  found, 
creating  a  new  function  which  does  not  have  the  old  root  inherently  contained 
within  the  iteration  zone.  Such  a  situation  is  shown  in  Figure  48.  Thus,  the 
standard  iteration  strategy  can  now  be  employed  to  find  the  remaining  roots  with¬ 
out  just  refinding  the  old  ones.  The  only  difficulty  which  is  encountered  by  this 
process,  is  that  the  new  function  P  can  take  on  extremely  large  values  if  the  root 
is  small  (close  to  zero).  DRIVER  then  can  call  a  separate  subroutine  SCALER  which 
separates  the  power  of  ten  of  a  number  and  carries  it  separately  through  the  compu¬ 
tation  in  DRIVER  so  that  overflow  within  the  computer  does  not  occur. 

6.  FUNCTION  SUBPROGRAMS  FE  and  FI 

These  two  subroutines  return  the  value  of  a  bloc  .  transfer  or  response 
function  to  MAIN.  In  the  case  of  some  elements  this  is  a  trivially  simple  calcu¬ 
lation.  In  cases  where  some  surface  operation  is  required,  FE  and  FI  prepare  the 
call  to  CONVOL.  The  initial  sections  of  FE  and  FI  are  computed  GO  TO's  which  take 
control  to  the  proper  subsection  for  the  particular  device  class  as  determined  by 
ITABLE(j,l).  The  listings  for  these  routines  are  given  in  Figure  49  and  Figure 
50. 

The  COMMENT  cards  in  the  listing  indicate  the  device  class  treated  therein. 
Generally  rather  simple  expressions  have  been  used  in  our  work  so  far.  Note  that 
in  sections  7  and  8,  s  variable  transfer  func^xons  are  given  for  linear  elements. 

The  basic  computational  method  can  equally  well  be  applied  in  the  s  variable  domain. 

7.  FUNCTION  SUBPROGRAM  FSPHI ( J , I RRAD) 

FEPHI  returns  to  MAIN  the  radiation  voltage  response  as  calculated  by  CONVOL; 
the  listing  of  FEPHI  is  given  in  Figure  51.  The  prime  task  performed  by  FEPHI  is 
to  ascertain  the  correct  surface  number  LSURF  knowing  only  the  block  number  J, 

First  J  is  used  as  a  look-up  entry  in  ITABLE  to  find  the  device  class  number. 

This  number,  set  to  INDEX,  is  used  together  with  the  variable  IRRAD  coming  in 
through  the  call,  to  find  LSURF  by  look-up  in  the  small  table  KSURF.  IRRAD  has 
the  value  one  for  X-ray  and  the  value  two  for  neutron  irradiation.  The  contents 


NO  INTEREST 


IU 

uj 

Z  __j 
<  5c 
X  3 

°o 

o  uj 

CO  c* 

o  o 

2  oo 


/V  --7  UJ 

<o° 

S2z 

—J  _JO 

logz 

UjSsg 

S  UJ  </> 
<£  H 

Z 


UJ  — 1 

<  cz 

IE  UJ 
f— 

O  P 

CO  — 


Sfe 

o  o 

<0^ 

^h- 

-u>< 

<  uj 

5  z: 


Ps3cl 


f— 

<C  Z 

Jo  h 

o~5) 

9-  UJ  UJ 
<  S  O' 

CVC  ^  LL1 
H  2  h- 
X  —  2 
UJ  CO  ~ 

H-  0  O 

IwZ 


«r»jL 

<m| 

Cojjy} 

'tR 


X 

I 


xt:; 


UJ  O 
O'  ^ 

£  O 

00 


a°-§ 

o  £*0 

>  1  Z 

—  XX 

doll 


00  o 

W-U, 

CZo 

h-< 

x  H 

UJ  UJ 

z:  co 


145 


Strategies  Einployed  in  Linear  Interpolation 
Root  Finding  Routine  DRIVER 


.0  ELT  FE*1, 720302,  *7804  «  1 


000001 

FUNCTION  FE(J> 

000002 

INCLUDE  SAPtLIST 

000003 

DATA  IN/5AIT/6/ 

00000* 

INDEX  =  ITABLE(J.l) 

000005 

GO  TO(1«2*3*A*5*6,7,8*9*10*11»12»13»14) 

000006 

1 

FE  =  FEF.01  ( J) 

000007 

RETURN 

000008 

2 

FE  =  FE£02(J> 

000009 

RETURN 

000010 

3 

FE  =  FFE03( J) 

000011 

RETURN 

000012 

* 

FE  =  FEF0* ( J) 

000013 

RETURN 

00001* 

S 

FE  =  FEEOS(J) 

000015 

RETURN 

000016 

6 

FE  =  FEE061J) 

000017 

RETURN 

000018 

7 

FE  =  FEE07 ( j) 

000019 

RETURN 

000020 

8 

FE  =  FEEOe(J) 

000021 

RETURN 

000022 

9 

FE  =  FEE09<J1 

000023 

RETURN 

00002* 

10 

FE  =  FEEIO(J) 

000025 

RETURN 

000026 

n 

FE  =  FEEll(J) 

000027 

RETURN 

000028 

12 

FE  =  FEE12U) 

000029 

RETURN 

000030 

13 

FE  =  FEE13U) 

000031 

RETURN 

000032 

1* 

FE  *  FEE1MJ) 

000033 

RETURN 

00003* 

c 

000035 

c 

01  =  RESISTOR,  SERIES  CONFIGURATION, 

000036 

FUNCTION  FEEOl(J) 

000037 

GO  TO  (10,201,  KROSS 

000038 

10 

FEE01  si.-  CIN(J,1)*R(J)/VIN(J,1) 

000039 

return 

0000*0 

20 

FEE01  =  VIN(J,1)/CIN(J,1)  -  RCJ) 

0900*1 

return 

0000*2 

c 

0000*3 

c 

02  =  RESISTOR,  SHUNT  CONFIGURATION, 

0000** 

FUNCTION  FEE02IJ1 

OOuOAS 

GO  TO  (10,201,  KROSS 

0000*6 

10 

FEE02  =  1. 

0000*7 

RETURN 

0000*8 

20 

FEE02  =  VIN(J,11/CIN(J,11 

0000*9 

RETURN 

000050 

c 

000051 

c 

03  =  OIODCt  SERIES,  FORWARD  BIASED, 

000052 

FUNCTION  FEEOKJl 

000053 

ARG  =  ClN ( J, 1 ) /COIODE  ♦  1.0 

00005* 

IF  (ARG1  10,10*20 

0000S5 

10 

FEE03  =  1.0  -  <TKO/VIN(J,lll*(ARG  -  1.01 

000056 

RETURN 

000057 

20 

FEE03  =  1.0  -  (TkQ/VIN<J»11)*ALOG(ARG1 

oooosa 

rfturn 

INDEX 


F  E  Listing 

146 


Figure  49a, 


0000S9 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000069 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000103 

000109 

000110 

0001U 

000112 

000113 

000114 

000115 

000116 

000117 

ooone 


c 

C  04  *  DIODE*  SERIES*  REVERSE  BIASEO. 

FUNCTION  F£E04<J> 

ARG  =  -  CIN<J,1>/CDI00E  ♦  1.0 
IF(ARG)  10*10*20 

10  FEE04  =  <TK0/VIN<J»1))«(ARG  -  1.0) 

return 

20  FEE04  =  1.0  ♦  <TKQ/VIN(J*1>)  *  ALOGIARG) 

RETURN 

c 

C  05  =  DIODE*  SHUNT*  FORWARO  BIASED. 

FUNCTION  FEE05IJ) 

FEE 05  =  1.0 
RETURN 
C 

C  06  =  DIODE*  SHUNT.  REVERSE  BIASED. 

FUNCTION  FEE06U1 
FEE06  =1.0 
RETURN 
C 

C  07  =  CAPACITOR.  SERIES*  S  VARIABLE  ANALYSIS. 
FUNCTION  FEE07<J> 

CINTGL<J,1>  =  ENTGRL(DT,J*CIN,IX,JT*M>  ♦  CINTGL ( J,3) 
FEE07  =  1.0  -  CINTGL (J*l)/(C(J1*VIN( J* 111 
RETURN 
c 

c  08  3  CAPACITOR.  SHUNT,  S  VARIABLE  ANALYSIS 
FUNCTION  FEEOa(J) 

FEE08  =1.0 
RETURN 
C 

C  09  =  INDUCTANCE*  SERIES*  S  VARIABLE  ANALYSIS. 
FUNCTION  FEE09(J) 

CINDTl(J.l)  =  D!FFER<DT,J.CIN»IX,JT,M> 

FEE09  =  1.0  -  <FLM>/VIN<J,1>>»  CINDTKJ.l) 

RETURN 

C 

C  10  *  INDUCTANCE*  SHUNT,  S  VARIABLE  ANALYSIS. 

FUNCTION  FEElOlJ) 

FEE 10  =  1.0 
RETURN 
C 

C  11  =  INTEGRATED  CIRCUIT  709  LINEAR  OP  AMP. 

FUNCTION  FEEll<J) 

DATA  ROUT/O* 1/ 

LSURF  =  1 
ISTEER  =  1 
V  =  VIN<J*1) 

IF (V.EO.O.O)  V  =  l.E-6 

FEE11  =  CONVOL(J*LSURF,ISTEER)  •  '0UT(J,21  *  ROUT/V 
RETURN 
C 

C  12  =  FLIP-FLOP 

FUNCTION  FEE121J) 

FEE 12  =  0.0 
RETURN 
C 

C  13  -  INTEGRATED  circuit  9704  DUAL  NANr  GATE 
FUNCTION  FEE13IJ) 

DATA  LSURF/6/,  ISTEER/1/ 


Figure  49b,  F  E  Listing  (cent,) 
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000119 

000120 

000121 

000122 

000123 

000124 

000125 

000126 

000127 

000126 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000136 

000139 

000140 

000141 

000142 

000143 


V  *  V!N(J.1> 

IF(V.EO.O.O)  V  *  l.E-6 

IFdTERAT.EQ.l.OR.V.NE.VOLD)  X  =  CONVOLU.I  SURF.ISTEER) 
FEE13  a  X 
VOLO  =  V 

GO  TO(10»20) •  KROSS 
10  RETURN 

20  FEE13  =  FEE13  •  V/CIN(J,1> 

RETURN 

C 

C  14  =  INTEGRATED  CIRCUIT  741  LINEAR  OP  AMP 
FUNCTION  FEE  14 (J) 

DATA  RIN/500.0/«R0UT/0.1/ 

LSURF  =  3 
I STEER  a  i 

V  =  VIN(J.l) 

IF(V.EQ.O.O)  V  =  l.E-6 

IFdTERAT.E^.l.OR.V.NE.VOLOl  X  =  -CONVOL(J.LSURF.ISTEER) 
FEE14  =  X  -  <COUT(J.l)*ClN<J.l>-V/RIN)«ROUT/V 
VOLD  r  V 

GO  TO  (10.20).  KROSS 
10  RETURN 

20  FEE14  a  FEE14  *  V/CINU.l) 

RETURN 

ENO 


Figure  49c.  F  E  Listing  (cont.) 
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»>  ELT  FI  *  1  *720302*  47807  ♦  1 


000001 

FUNCTION  FI(J> 

000002 

INCLUDE  SAP»LIST 

000003 

INDEX  =  ITABLF(J.l) 

000004 

GO  T0<1»2*3»4»5»6» 7.8.9.10* 11.12. 13*11) t  INDEX 

000005 

1 

FI  =  FI  101 <  J> 

000006 

RETURN 

000007 

2 

FI  =  F1I02IJ) 

000008 

RETURN 

000009 

3 

FI  =  FII03IJ1 

000010 

RETURN 

000011 

4 

FI  =  FI  1041 J) 

000012 

RETURN 

000013 

5 

FI  =  FII05IJ) 

000014 

RETURN 

000015 

6 

FI  =  FII06IJ) 

000016 

RETURN 

000017 

7 

FI  =  FI107IJ) 

000018 

RETURN 

000019 

8 

FI  =  FII08IJ1 

000020 

RETURN 

000021 

9 

FI  =  FII09(J) 

000022 

RETURN 

000023 

10 

FI  =  FI  110  < J) 

000024 

RETURN 

000025 

11 

fi  =  Fun  (ji 

003026 

RETURN 

000027 

12 

FI  *  FII12U) 

000028 

RETURN 

000029 

13 

FI  =  FII13(J: 

000030 

return 

000031 

C 

000032 

C 

01  -  RESISTOR,  series  CONFIGURATION. 

000033 

FUNCTION  FIIOI(J) 

000034 

GO  TO  <10,201,  KrOSS 

000035 

10 

FI I 01  a  1. 

000036 

return 

000037 

20 

FII01  =  CIN( J,1)/VIN(J,1> 

000038 

RETURN 

000039 

c 

000040 

c 

02  =  resistor,  shunt  configuration. 

000041 

FUNCTION  FII02U) 

000042 

GO  TO  <10,20) ,  KROSS 

000043 

10 

FII02  -  1.  -  VIN<J,l»/<CIN<J,l)*RU»> 

000044 

return 

000045 

20 

FH 102  =  CIN(J,l)/VIN<J,l>  -  1.0/RIJ) 

000046 

RETURN 

000047 

c 

000048 

c 

03  =  DIODE,  SERIES,  FORWARD  8IASEO. 

000049 

FUNCTION  FII03(J> 

000050 

FII03  *  1.0 

000051 

return 

000052 

c 

000053 

c 

04  =  DIODE,  SERIES,  REVERSE  BIASED. 

000054 

FUNCTION  FII04(J) 

000055 

FI I 04  =  1.0 

000056 

return 

000057 

c 

000058 

c 

05  >  DIODE,  SHUNT,  FORWARO  BIASED. 

Figure  50a.  F  I  Listing 
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000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000108 

000109 

000110 

000111 

000112 

000113 

000114 

000U5 

000116 

000117 

000118 


FUNCTION  FII05(J) 

If'<VIN<J,l>/TKQ-40.Q>  20*10*  10 
10  VIN(J,1>=TKQ  *  12.0  *ALOG(ABS(CIN(J»1>«M1.0E-12>/CDIODE>  > 
<30  TO  50 

20  IF(VIN(J*1))30»40*50 

30  FIIQ5  =  1.0  -  VIN(J,l)/<ciNU*l)  *  RPDIOD) 

RETURN 

40  FII05  =  1.0 
RETURN 

50  FI 1 05  =  1.0  “ (CDIODE/CIN  < J.l) ) • (EXPIVIN < J»l) /TKQ)  -  1,0) 
RETURN 
C 

C  06  =  OIOOE*  SHUNT,  REVERSE  BIASED. 

FUNCTION  FII06<J) 

FI 106  r  1.0  -  (COIOOE/CIN (J*l) > • (EXP(-VIN(J*1)/TKQ)  -  1.0) 
RETURN 

c 

C  07  =  CAPACITOR.  SERIES*  S  VARIABLE  ANALYSIS. 

FUNCTION  F I 1 07 ( J) 

FI 107  =  1.0 
RETURN 
C 

C  08  =  CAPACITOR*  shunt,  s  variable  analysis. 

FUNCTION  FI 1 08 (J) 

VINDTl ( J,l)  =  DIFFER (DT  .J.VIN.IX.JT.M) 

FI I 08  =  1.0  -  C(J)/CIN(J,1)  *  VINDTl ( J« 1) 

RETURN 

C 

C  09  =  INDUCTANCE.  SERIES.S  VARIABLE  ANALYSIS. 

FUNCTION  FII09IJ) 

FII09  =  1.0 
RETURN 
C 

C  10  =  INDUCTANCE,  SHUNT*  S  VARIABLE  ANALYSIS. 

FUNCTION  FI I 10 (U) 

VINTGL ( J, 1 )  =  ENTGRL <OT *J*VIN*IX,JT»M)  ♦  VINTGLIJ.3) 

FII10  =  1.0  -  VINTGL!J*1)/(FLU>*CIN!J.1>) 

return 

c 

c 

C  11  =  INTEGRATED  CIRCUIT  709  LINEAR  OP  AMP. 

FUNCTION  FI I 1 1 ( J) 

DATA  RIN/500.0/*  CGAIN/1.E*4/ 

CUROUT  *  CGAIN*(CIN(J,1)  -VINtU.l)/ 

1  RIN)  ♦  VOUT (J*1)/R(J*1) 

GO  TO  (10.20),  KROSS 
10  FI I 1 1  s  CUROUT/CIN ( J* 1 1 
RETURN 

20  FII11  =  CUROUT/VIN ( J* 1 ) 

RETURN 

C 

c 

c  12  =  FLIP-FLOP 

FUNCTION  FI I 1? ( J* 

GO  TO ( 10,20) »  KROSS 

10  FI 1 12  =  1.0*VOUT(J,2)/(CIN(J»1)»R(J*1)1 
RETURN 

20  FI  1 12  =  <CIN<J,l).V0UT(J,2>/RU*ni/VIN(J,l> 

RETURN 


Figure  50b.  F  I  Listing  (cont.) 
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000119 

000120 

000121 

000122 

000123 

000124 

00012S 

000126 

000127 

000128 


C  13  a  9706  OUAL  NANO  GATE 
FUNCTION  FIU3IJ) 

OATA  CGAIN/l.E«4/ 

CUROUT  =  CGAIN  *  CIN( J. 1)  ♦  VOUT(J.l>/R(J*l> 
60  TO  <10.20) ♦  KROSS 
10  FI 1 13  =  CUROUT/CINCJ.l) 

RETURN 

20  FI  1 13  s  CUROUT/VJNIJ.I) 

RETURN 

END 


Figure  50c.  F  I  Listing  (cont.) 


S  ELT  FEPHI. 1.720302.  47805 


*  1 


000001 

FUNCTION  FEPHI TJ.IRRAOJ 

000002 

INCLUDE  SAP.LIST 

000003 

INDEX  =  ITABLE ( J*  l) 

000004 

LSURF  =  KSURF(1NDEX.IRRAD*3> 

000005 

IF (LSURF)  10.10.20 

000006 

10 

FEPHI  «=  0.0 

000007 

RETURN 

000008 

20 

ISTEER  *  IRRAD  ♦  2 

000009 

FEPHI  =  CONVOLIJ.LSURF. ISTEER) 

000010 

return 

OOOOll 

END 

Figure  51.  FEPHI  Listing 
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oi  the  array  KSURF  are  shown  in  Table  II,  The  columns  of  the  array  represent  the 
type  of  transfer  function  surface  upci  which  SIIRF3  will  have  to  perform  an  inter¬ 
polation.  Column  one  denotes  the  total  number  of  surfaces  available  for  a  given 
device  class.  The  rows  of  KSURF  denote  the  device  class  as  indexed  by  ITABLE,  and 
corresponds  to  the  sequence  as  indicated  by  comment  cards  in  FE.  The  subprogram 
FIPHI  is  similar  to  FEPHI ,  with  the  column  index  variable  increased  by  two  compared 
to  that  in  FEPHI  so  as  to  pick  out  the  proper  columns  in  KSURF. 

8.  FUNCTION  SUBPROGRAM  CONVOL(j,LSURF,ISTEER) 

Superposition  or  convolution  of  the  running  sums  created  by  the  partitions 
driving  back  along  the  surface  is  the  main  operation  performed  by  CONVOL.  The  list¬ 
ing  of  CONVOL  is  given  in  Figure  52.  The  variable  J  in  the  call  is  the  block 

number.  LSURF  is  the  surface  number  being  dealt  with,  and  is  passed  on  by  CONVOL 
to  TS'JRF.  ISTEER  tells  CONVOL  what  type  of  stimulus  function  applies —  that  is 
either  voltage,  current,  X-ray  dosage,  or  neutron  dosage,  and  takes  on  values  from 
one  to  four,  respectively. 

On  the  first  time  step,  CONVOL  calculates  the  length  of  the  running  sums  needed 
by  taking  and  dividing  the  length  of  the  surface  in  the  time  direction  by  the  initial 
time  step.  If  this  number  is  larger  than  the  number  of  storage  locations  LMAX  set 
aside  for  the  running  sums,  a  message  is  printed.  The  first  time  that  CONVOL  is 
called  on  a  given  time  step  from  any  of  the  routines  which  can  call  it,  the  section 

of  program  starting  at  statement  90  is  entered.  The  DO  loop  limits  are  calculated 

using  the  time  step  counter  M  as  moduloec  down  within  the  range  LMAX,  together  with 
the  I  RANGE  variable  calculated  earlier.-  The  running  sums  move  along  in  a  fixed 
storage  length  and  then  fold  back  wher.  the  maximum  is  reached,  as  indicated  by  the 
COMMENT  cards  in  the  listing  of  Figure  52b. 

Nith  the  limits  on  the  DO  established,  the  running  sum  is  convolved.  Four 
essential  pieces  of  information  are  needed? 

i .  TIMER  which  is  the  elapsed  time  since  a  partition 

was  created,  until  the  current  time  step.  The  second 
column  in  the  TIMER  array  contains  that  value  in  log 
form,  TIMER  is  a  look-up  variable  for  surface  inter¬ 
polation, 


152 


f>  ELT  CONVOL. 1.720302,  47797  »  1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000005 

000009 

000010 

oooon 

000012 

000013 

000014 

000015 

000016 

000017 

oocoia 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

OOOOSO 

000051 

000052 

000053 

000054 

00005S 

000056 

000057 

000058 


FUNCTION  Ci/NVOLU.LSURF.ISTEERl 
INCLUDE  SAP. LIST 
l.'CLUDE  TIME. LIST 
INCLUDE  XYZ.LIST 
COMMON/PawaLL/lITER.JPAPL 

DIMFNSION  U(LmAX,IX),SUMOLD(IX)  .  TERM(  IX),  IRANGE  UX) 

DIMENSION  KSU&FX ( 12) 

LOGICAL  NOMORE.KONVOL.ISOTH.IPRINT 

OAT A  (KSUPFX (I). 1=1, 121/1, 1.1. 2, 2. 1.0. 1.2, I .2.0/ 

DATA  IT/6/ 

C 

C  LMAX  =  FIRST  DIMENSION  IN  U  ARRAY. 

C 

C  THE  KSURfX  ARRAY  INDICATES  WHETHER  THE  XAXIS  OF  THE  SURFACE  IS 

C  LINEAR  OR  LOGARITHMIC.  1  =  LINEAR.  2  =  LOG. 

C 

IPRINT  =  .TRUE. 

MNEW  s  M 

IF(MNEW.NE.MOLO)  MMODIO  =  I(M/10)*10)/M 
C 

C  SELECTING  the  PROPER  STIMULUS  VARIABLE. 

GO  TO  (2,3,4,51 »  ISTEER 

2  ORI9E  =  VIN(J.l) 

GO  TO  10 

3  DRIVE  =  CIN(J.l) 

GO  TO  10 

4  DRIVE  =  PHIXL 
GO  TO  10 

5  DRIVE  =  PHINL 
C 

C  HERE  THE  Tag  SUBSCRIPT  FOR  A  SPECIFIC  ONE  OF  A  SPECIFIC  DEVICE 
C  TYPE  IS  ESTABLISHED. 

C 

10  INDEX  =  ITABLE(J.I) 

KOUNT  =  0 

DO  20  KK  =  2,  IS 
KS  =  r(SURF<  INDEX, KK) 

IF(KS.GT.O)  KOUNT  =  KOUNT  ♦  1 
IF(LSJRF.NE.KS)  GO  TO  20 

JJ  =  ITABLE(J,2)  -  KSURF  < INDEX , 1 >  ♦  KOUNT 
GO  TO  22 
20  CONTINUE 
22  LL  =  KSURFX (LSURF) 

C 

IGO  =  1 

IF ( (ISTEFR.E0.3. AND..NOT .KONVOL (1) 1 .OR. ( I STEER. EO. 4. AND. .NOT. 

1  KONVOL  <21 1 1  IGO  =  2 
!F(ITERAT.GT.l.0R.IG0.EQ.2>  GO  TO  400 
IFUPARL.EO.l. AND. LITER.GT.il  GO  TO  400 
IF(M-l)  30,30,90 

30  XHS  =ABS<  XHIGH(LSURF)/SCALE(LSURF,11) 

IF(MOOE.EO.l.ANO.LL.EO.l)  IRANGE(J)  =  XHS/DT 
IF(MODE.E0.1.AND.LL.E0.2)  IR».NGE(J>  =  < 1 0.**XHS) /DT 
IF(MOOE.EO. 2. AND.LL.EO.il  IRANGE(J)  =  ( ALOG10 (XHS) 1 /DLOGT 
IF(MOOF.E0.2.ANO.LL.E0.21  IRANGEIJ)  =  XHS/DLOGT 
IF(IRANGE(J1.LT.?0)  IRANGE (U) =20 
WRITE(IT,40>  J,  IRANGE(J) 

40  FORMAT (/  5X.8H  IRANGE ( , I 2,3H)  =,I4  /) 


Figure  52a.  C  0  N  V  0  L  Listing 
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000059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000108 

000109 

000110 

000111 

000112 

000113 

000114 

000115 

000116 

000117 

000118 


60  IF(IRANGE(J> .LE.LMAX)  GO  TO  75 
WRITE  ( IT  »70) 

70  format <//49h  time  step  ot  too  small*  will  overflow  u  arrays.  //> 

IRANGE <J)  =  LMAX 
75  00  80  J1  =  It  IX 

SUMOLO  < J1 )  =  0.0 
80  TERM(Jl)  =  0.0 
GO  TO  400 
C 

c  «<». .ft...... ..*•**#•**•*•***•.•••*•*••.*.•******•**•****•<»*. ********** 

c  * 

C  *  -FOLDING  OF  ARRAYS 


C  • 

C  *  1.  AT  START 

C  • 

C  *  ILOl  IHI 1  LMAX 

C  *  1 - 1  I 

C  *  LATEST 

C  « 

C  •  2. LATER 

C  *  ILOl  IRANGE(J)  IHI1  LMAX 

C  *  1  I - 1  I 

C  *  OLOEST  LATEST 

C  « 

C  «  3.  STILL  LATER 

C  *  ILOl  IHI  1  IL02  IHI2 

C  «■  1 - 1  I - -—I 

C  *  LATEST  OLOEST  LMAX 

C  • 

C  ************************** **********#*********« ***************************< 

C 


90  ILOl  =  MPRIME  -  I RANGE (J) 

IF(lLOl.LT.l)  ILOl  *  1 

IF (HPRIME.EQ.il  ILOl  =  LMAX  -  IRANGE(J)  ♦  1 
TERM(JJ)  =  0.0 
IHI 1  =  MPRIME  -  l 
IFdHll.LT.il  IHI1  *  LMAX 

IFIMPRIME.LE. IRANGE ( J) .ANO.lHl 1 .LT. IRANGE ( J) .AND. MODULO. gT.O) 

1  GO  TO  100 
NOMORE  r  .TRUE. 

GO  TO  200 

100  NOMOPE  -.FALSE. 

1L02  =  MPRIME  *  LMAX  -  IRANGE (J) 

IHI2  =  LMAX 
C 

200  SUM  =  O.Q 
C 

C  SETTING  00  LOOP  LIMITS  FOR  SUMMING  LOWER  PART  OF  RANGE. 

I LOW  =  ILOl 
IHIGH  =  IHI 1 
IBOTH  =  .FALSE. 

GO  TO  220 
C 

C  SETTING  00  LOOP  LIMITS  FOR  SUMMING  UPPER  PART  OF  RANGE. 

210  ILOW  =  ILO? 

IHIGH  =  IHI2 
I80TH  =  .TRUE. 

C 

220  IF(MM0010.EQ.1.ANO.IPR2NT>  WRl TE (IT.222)  M, MPRIME, ILOW. IHIGH, LSURF 
222  FORMAT (/  5H  M  =  ,I3,UH»  MPRIME  =.13.  8H  ILOW  =.I3.9H  IHIGH  =, 


Figure  52b.  C  0  N  V  0  L  Listing  (cont.) 
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000119 

000120 

000121 

000122 

000123 

000124 

00012S 

000126 

000127 

000120 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000138 

000139 

000140 

000141 

000142 

000143 

000144 

00014S 

000146 

000147 

000148 

000149 

000150 

000151 

000152 

000153 

000154 

000155 

000156 

000157 

000158 

0001S9 

000160 

000161 

000162 

000163 

000164 

00016S 

000166 


1  13.  9H  LSURF  s.  12. 

2  //2X.  64H  L  TIMER  UIN  DTL  TEMP  SUM 

3  TSURF  ) 

C 

CONVOLVING  THE  PUNNING  SUMS  BY  OrIVING  THE  PARTITIONS  ALONG  THE  SURFACE. 
00  300  L  =  1LOW .  IHIGH 

UIN  =  U(L.JJ) 

IF (U!N)  230.  300.  230 
230  TIMER  =  TL(L.LL) 

TSURFF  =  TSURF (TIMER, UIN. 3. LSURF.LL) 

UMULT  =  UIN 

IF (LSURF «£0.6)  UMULT  =  1.0 
TEMP  =  TSURFF  •  UMULT  *  DTL(L»LL1 

IF(MM0010.e0.l.AND.!PRINTl  WRITE(IT.260>  L.T1MER.UTN»0TL(L.LL>  . 

1  TEMP,SUM»TSURFF 
260  FORMAT (2X,I3«lX,6(G10.3.1X)) 

SUM  =  SUM  ♦  TEMP 

IF (TIMER. gT.XHIGH (LSURF). AND.. NOT. ABS (TEMP). GT.EPSLON)  U(L,JJ>=0.0 
300  CONTINUE 

lF(.NOT.NOMORE.ANO..NOT.IBOTH)  GO  70  210 
SUMOLO(JJ)  -  SUM 
C 

COMPUTING  CONTRIBUTION  OF  PRESENT  TIME  STEP  TO  RESPONSE  SUM. 

C 

400  IF(IT£PAT.GT.].AND.IG0.E0.2)  60  TO  480 
U(MPRIME.JJ)  =  ORIVE 
UIN  =  DRIVE 
UMULT  =  UIN 

IF (LSURF. EO. 6)  UMULT  =  1.0 
SUM  =  SUMOLO(JJ)  -  TERM(JJ) 

GO  T01430.440).  HOOE 
430  TIMER  =  OT 
GO  TO  460 

440  GO  TO  (450.470),  IGO 
450  TIMER  =  OLOGT 

460  TERM(jj)  s  UMULT  *  TSURF (TIMER.UIN, 1 .LSURF.LL) 

SUMOLO(JJ)  =  SUM  ♦  TERM(JJ) 

GO  TO  480 

470  TIMER  =  TRAOLG 

IF (LL.NE.2)  TIMER  =  10.**TRADLG 

SUMOLO(JJ)  =  UMULT  *  TSURF(TIMER,UIN,1, LSURF.LL) 

480  SUM  =  SUMOLO(JJ) 

C 

500  IF (DRIVE. EO. 0)  DRIVE  =  l.E-6 
CONVOL  =  SUM/DRIVE 
MOLD  =  M 
RETURN 
END 


Figure  52c,  CONVOL  Listing  (cont,) 


156 


2.  UMULT  is  the  stimulus  value  at  the  time  t..c 
partition  was  created.  For  the  case  of  the  9704 
voltage  surface,  UMULT  =  1.  since  the  surface  is 

a  response  rather  than  transfer  function  surface, 

UMULT  is  also  a  look-up  variable  for  surface 
interpolation. 

3.  DEL  is  the  time  step  interval  that  existed  at  the 
time  steps  being  swept  over  by  the  running  sum  as 
the  partition  moves  along  the  surface.  The  second 
column  in  the  array  is  the  logarithm  of  the  value. 

4.  TSURFF  is  the  properly  scaled  value  of  the  surface 
z  coordinate  returned  from  SURFB  by  TS’JRF  using 
TIMER  as  the  x  look-up  variable  and  UMULT  for  the 
y  look-up  variable. 

The  contribution  of  a  particular  partition  to  the  sum  is  the  product 

TEMP  =*  TSURFF  *  UMULT  *  DrL(L,LL) 

Every  tenth  time  step  during  execution  the  running  sums  are  printed  for  examina¬ 
tion  of  the  convolution  process.  When  a  particular  term  decreases  below  some 
value  EPSLON,  the  multiplier  UMULT  is  set  zero  for  that  term,  so  that  the  term  is 
bypassed  on  subsequent  summations. 

The  last  section  of  CONVOL  handles  the  contribution  of  the  current  time  step 
to  the  total  sum.  Since  the  iteration  process  only  affects  this  one  term,  after 
the  first  iteration  pass  only  this  section  of  CONVOL  need  be  executed.  The  call 
which  CONVOL  sets  up  to  TSURF  is  somewhat  different  here  in  that  the  call  list  con¬ 
tains  a  one  rather  than  a  three.  This  retrieves  the  z  value  of  the  surface  rather 
than  dz/dx,  hence  multiplication  by  DTL  is  not  required.  J.n  the  statement  after 
500,  the  value  of  the  function  CONVOL  is  computed  as  SUM/DRIVE,  which  casts  the 
result  into  the  sense  of  a  transfer  function,  for  use  by  FE  et  al. 

One  subtlety  involved  in  CONVOL  is  the  use  of  a  doubly  subscripted  array  for 
DTL  which  is  dimensioned  two  in  the  second  index,  LL.  LL  indicates  whether  the 
time  base  is  linear  or  logarithmic,  taking  the  values  one  and  two,  respectively. 

If  the  surface  time  base  is  linear,  then  the  linear  DTL  is  required,  whereas  if 
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the  basic  mode  of  representation  of  the  surface  is  logarithmic,  then  the  time  step 


TERM  =  UIN 


5  Tu  d(log  t^) 

blogt 


Sketch  Showing  Equi-interval  Convolution  on  a  Log(time)  Base 

DTL  must  also  be  logarithmic  since  SURFB  is  returning  Sz/d(log  t),  rather  than 
dz/Bt.  The  setting  of  LL  is  done  at  the  beginning  of  CONVOL  by  looking  up  the 
mode  of  the  x  axis  of  the  surface  in  the  array  KSURFX, 

9.  FUNCTION  SUBPROGRAM  TSURF(TT,UU,II ,L,LL) 

TStJRF  is  a  relatively  short  program  which  interfaces  CONVOL  and  SURFB,  per¬ 
forming  the  task  of  rescaling  the  input  and  output  information  for  internal 
compatibility.  For  example,  the  voltage  transfer  function  surface  of  the  7^1,  the 
vacuum  cleaner,  used  milliseconds  for  the  time  axis  and  millivolts  for  the  input 
voltage  axis,  while  the  SAP  program  uses  nanoseconds  for  the  time  unit,  and  volts 
for  the  voltage  unit.  So  TSURF  multiplies  the  variable  supplied  by  CONVOL ,  TT  and 
UU,  by  SCAL2  for  the  surface  number  L,  to  obtain  the  proper  values  for  use  by  SURFB. 

TSURF  finds  the  proper  pointers  for  the  X,  Y,  and  Z  arrays  by  look-up  in  the 
IPONTR  array  for  the  surface  L.  These  pointers  are  set  in  the  SURFB  call  to  provide 
entry  points  in  the  array  senuence  because  these  same  arrays  are  dimensioned 
differently  in  SURF3  than  in  TSURF  and  MAIN,  For  example,  Z  is  singly  dimensioned 
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in  the  XYZ  COMMON  block,  whereas  it  is  triply  dimensioned  in  SURFS, 

Another  major  task  performed  by  TSURF  is  decision  making  when  the  inputted 
look-up  variables  lie  outside  the  domain  of  the  surface.  The  actions  taken  have 
been  kept  simple,  as  can  be  seen  by  inspection  of  the  listing  of  TSURF  given  in 
Figure  53* 

The  variable  II  selects  the  appropriate  term  in  the  ZA  array  returned  by  SURF3, 
For  II  =  1,  ZA(i)  =  z,  while  for  II  -  3»  ZA(3)  a  dz/dx. 

10.  FUNCTION  SUBPROGRAM  DAMAGE  (j.IRRAD) 

The  routine  DAMAGE  is  called  by  MAIN  to  calculate  the  permanent  degradation  of 
the  device  due  to  radiation  exposure.  A  rather  simple  technique  has  been  used 
which  makes  use  of  the  741  radiation  voltage  transfer  function  due  to  neutrons, 
TPHIVTI.  The  isochronal  cross-section  occurring  at  t  «  875  ms  is  used  as  the  x  axis 
look-up  variable  in  a  call  to  TSURF.  This  isochronal  is  approximately  the  same 
as  that  given  in  Figure  24b,  bottom. 

The  accumulated  dose  is  integrated  by  DAMAGE,  as  shown  in  the  listing  of 
Figure  54,  using  simple  trapezoidal  integration.  The  integrated  dose  is  used  as 
the  y  axis  look-up  variable  for  TSURF.  Thus  the  surface  interpolation  returns  the 
value  of  TPHIVI!  at  the  accumulated  dose  pofnt  along  the  isochronal.  This  is  then 
divided  by  the  lowest  dose  value  of  the  function,  TPHINO,  to  provide  the  ratio  by 
which  the  maximum  output  has  decreased,  MAIN  then  uses  this  ratio,  in  the  transfer 
function  sense,  to  degrade  the  device  output  as  calculated  in  the  normal  manner 
with  electrical  and  radiation  transient  responses  superimposed. 

The  variable  J  in  the  call  list  is  the  block  number,  and  IRRAD  indicates  the 
irradiation  type,  one  corresponding  to  Xrays,  and  two  to  neutrons.  However,  the 
same  surface  is  used  for  the  damage  function  (as  a  temporary  expedient), 

11.  SUBROUTINE  PARL3L(1T,LBL0CK,L:1AX, FACTOR,  CNOUT,  VNOUT,  VNIN , ICPRINT,  JPARAL ) 

This  routine  handles  the  parallel  iteration  algorithm,  and  its  listing  is  given 
in  rigure  55*  The  items  in  the  call  list  represent  the  following! 

•  N  is  the  input  node  number, 

•  L BLOCK  is  an  array  which  contains  the  block  numbers  for  a  given 
parallel  sequence, 
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P  ELT  TSURF.l, 720304.  74057 


•  1 
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FUNCTION  TSURF(TT.UU.II.L.LL) 

INCLUDE  XYZ ♦LIST 
DIMENSION  ZA (8) 

LOGICAL  ISYM 
DATA  XHI6/250./ 

DATA  IT/6/ 

FACTOR  =  1.0 
T  =  TT  •  SCALF<L,1) 

U  =  UU  *  SCALF (L.2) 

IF(T.LT.XLOW(L> >  GO  TO  200 
XHI  *  XHIGH(L) 

IF (L.E0.6)  XHI  =  XHI6 

IF(T.GT.10.«XHI>  GO  TO  200 

IF(T.GT.XHI)  T  =  XHI 

IFIU.LT.VLOw (L) » AND. ISYM (L) )  U  =  -U 

IE(U,LT.YLOW(L)*ANO..NOT.ISYM<L>)  U  =  YLOW(L) 

IF(U.GT.YHIGH(L) )  GO  TO  300 

100  IP  =  IPONTR(L.l) 

JP  =  IPONTR (L*2> 

KP  =  1P0NTR  <L » 3) 

IF<IP.EO.O.OR.JP.EO.O.OR.KP.EQ«0)  GO  TO  400 

CALL  SUPFB <X ( JP) . I XD1M <L) «Y(jP) tlYDIM(L) .Z (KP> .T.U.ZA.L) 

TSURF  =  7A ( 1 1 ) * SC ALE (L.3)*F ACTOR 
IFIII.E0.3)  TSURF  =  TSURF  •  SCALE(L.l) 

RETURN 

200  TSURF  =  0.0 
RETURN 

300  FACTOR  =  YHIGH(L)/U 
U  =  YHIGH(L) 

GO  TO  100 

400  WRITE ( IT .410) 

410  FORMAT (120H1  TERMINATED  BY  TSURF  SINCE  POINTER  FOR  SURFB  IS  ZERO. 

1  I  SURF  DATA  CARD  IS  IN  ERROR  Af\IO  A  NEEDED  SURFACE  IS  NOT  READ  IN.) 
CALL  EXIT 
END 


Figure  53.  TSURF  Listing 
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FUNCTION  OAMAGE(J.IRRAD) 

C  AS  PRESENTLY  SET  UP  THIS  ROUTINE  REQUIRES  THAT  THE  TPHIVN  SURFACE 

C  OF  THE  741  BE  READ  IN  AT  EXECUTION  TIME  BY  MAIN.  LSURF  *  5,  ZVN741 

INCLUDE  SAP. LIST 
INCLUDE  TIME. LIST 

DATA  TLOOK/S.75/.TPHINO/1.32/»DOSEN/.001/.DOSEX/.001/ 

C 

INDEX  =  I  TABLE  ( J*  J ) 

IF (KSURF ( INDEX. I RR AD* 3) .EQ.C)  GO  TO  300 
C 

T  =  TIME(MPRIME.I) 

IF  (.NOT. (T.GT. TOLD) )  GO  TO  100 
DOSEN  =  DOSEN  ♦  DT«10.»*PHINL 
DOSEX  s  DOSEX  ♦  DT*10.**PHJXL 
DOSENL  =  AL0G10 (OGSEN) 

DOSEXL  =  ALOG1 0 (DOSEX ) 

C 

100  GO  TO  (120.140).  IRRAD 

120  DAMAGE  =  DOSEXL  *  TSUPF<TLOOK.DOSEXL*1.5.1)/TPHINO 
GO  TO  200 

140  OAMAC-F  =  DOSENL  •  TSURF (TLOOK, DOSENL.  1 .5. 1  l/TPHINO 
200  TOLO  =  T 
RETURN 

300  DAMAGE  =  1.0 
RETURN 
END 


Figure  54,  DAMAGE  Listing 
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#  Et-T  PARLEL. 1.720302.  47809  .  1 
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000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 
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SUBROUTINE  PARLEL (N.LBLOCK.LMAX, FACTOR. CNOUT. VNOUT.VNIN.CNIN,  PAR 

1  kprint.jparal) 

C 

C  OR.  R.  G.  STEWART.  AREA  CODE  415*  941-6699 

C  STEWART  RESEARCH  ENTERPRISES.  23376  BELVOIR  DR.»  LOS  ALTOS.  CALIF. 

C 

c  parlel  handles  balancing  of  currents  in  parallel  connected  blocks. 
c 

include  sap.list 
COMMON/PAR ALL/L ITER. JP ARL 

DIMENSION  LBLOCK  UX.IX).LMAX(  IX)  .FACTOR  (IX)  .CNOUTUX)  .VNOUT(IX) 

1  .VNINI IX) vCN ' 9  C I X  > .DELTaV(IX) , JPaRAL (IX) .FEE (IX) .FI II IX) 

2  .FEOLDI IX) .DIJDI ( IX) .VAVRAG(IX) 

DATA  IN/5/. IT/6/, KMOST/  2/ 

DATA  VTEST/0.02/.CTEST/0. 02/ .LIMIT/  4/ 

C 

COMPUTING  CURRENTS  IN  PARALLEL  BRANCHES. 

C 

VTOTAL  =  VNIN(N) 

CTOTAL  =  CNIN(N) 

KSTATE  =  KROSS 
KROSS  =  2 
C 
C 

C  K  IS  THE  PARALLLEL  ITERATION  DO,  L  STEPS  ALONG  BRANCHES. 

C 

LHI  =  LMAX(N) 

DO  20  LL  =  1,  LHI 
LB  =  LBLOCK <N,LL) 

20  VIN (L8» 1 )  =  VTOTAL 
C 

C  ITERATING  TO  FIND  NEW  CURRENT  FACTORS. 

C 

00  100  K  «  1.  KHOST 

CSUM  =  0.0 
LITER  =  K 

DO  30  LL  e  1.  LHI 
LB  *=  LBLOCK (N.LL) 

CIN(LB.l)  =  CTOTAL  *  FACTORCLB) 

30  CSUM  =  CSUM  ♦  ClN(LB.l) 

C 

FRACT  =  CSUM/CTOTAL 
DO  40  LL  =  1,  LHI 
LB  =  LBLOCK (N,LL> 

40  CIN(LB.l)  »  CIN(LB,1)/FRACT 
C 

C  NOW  KIPCHOFFS  current  law  IS  SATISFIED  AT  INPUT  NODE. 

C  NEXT  PROPAGATE  THRU  BRANCHES  TO  FIND  OUTPUT  VOLTAGE  USING 
C  CROSSED  VOLTAGE  TRANSFER  FUNCTIONS. 

C 

VSUM  =0.0 

DO  60  LL  »  ].  LHI 

LB  =  LBLOCK (N.LL) 

JPARL  =  JPARALJN) 

ITRS4V  =  ITERAT 
NITER  b  0 
C 

C  SELF-CONSISTENCY  iteration  loop 


Figure  55a.  PARLEL  Listing 
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0000S9 

c 

000060 

50  NITER  =  NITER  ♦  1 

000061 

ITERAT  =  ITRSAV  •  NITER 

00006? 

VOLD  =  VOUT(LR.l) 

000063 

COLO  =  COUT  (LR. 1 ) 

000064 

FEE(LR)  =  FE(LP> 

000065 

FI  I  (LB>  =  FI<LB> 

000066 

VOUTlLRt  n=FFF<LR)*ClN(LB*l> 

000067 

COUT (LR*!)=FII <LR)#VIN(LB»l) 

000068 

TESTV  =  ARS(1.0-VOUT(LB»1)/VOLD) 

000069 

TESTC  =  ARSU.O-COUT«LB«1>/COLO> 

000070 

IF<.NOT.<flnS<VOLO>.GI.O.)l  TESIV  =  0.0 

OOOO’l 

IFI.NOT. (ABSICOLO) .GT.O.) >  TESTC  =  0.0 

000072 

IFUTESTV.GT.vTEST. OR. TESTC. GT.CTEST). AND. NITER. LE. LIMIT)  GO  TO  50 

000073 

ITERAT=I TRSAV 

000074 

c 

000075 

c 

CONSISTENCT  ACHIEVED 

000076 

c 

000077 

60  VSUM  =  VSIJM  ♦  VOUTILB.il 

000078 

VAVRAG(N)  =  VSUM/LMAXIN) 

000079 

IF<ABS(VAVRAG(N)1 .GT.15.01  VAVRAG(N)  =  15.0  *  ISIGNO »VAVRAG(N) ) 

000080 

KOUNT  =  0 

000081 

c 

000082 

c 

FINDING  NEW  CURRENT  SPLITTING  FACTORS. 

000083 

DO  80  LL  =  1.  LHI 

000084 

LB  =  LBLOCK(N.LL) 

000085 

DELTAVILR)  =  VOUT(LB.I)-VAVRAGIN) 

000086 

DUDI (LB)  =  (FEE (LP) -FEOLD ILB) > /(CIN (LB. 1) “CIN (LB.2) ; 

000087 

IF(K.EO.l)  OUOI (LB)  =  0.0 

000088 

DELTAI  =  DELTAV(LB)/(FEE(LB)  ♦  CIN <LB» 1 ) *OUDl (LB) ) 

000089 

FEOLD (LB)  =  FEE (LB) 

000090 

CIN (LB.2)  s  CIN(LB.I) 

000091 

FACTOR(LH)  =  (CIN  (LB.  1 ) -DELTAI ) /CTOTAL 

000092 

IF(ABS(OELTAV(LB))  -  00001)  76.  76.  80 

000093 

76  KOUNT  =  KOUNT  ♦  1 

000094 

80  CONTINUE 

000095 

c 

000096 

IF (KPRINT)  82,90,82 

000097 

82  DO  84  LL  =  1.  LHI 

000098 

LR  =  LBLOCK(N.LL) 

000099 

84  WRITEUT.R6)  K, LB, DUDI (LB)  .ClN(LB.l) .FEE (LB) »FII (LB) .DELTAV(LB) 

000100 

1, FACTOR (LP ) ,V0UT (LB. 1) .COUT (LB. 1) 

000101 

86  FORMAT <3H  K=,I3.3H  L=,I2,6H  DUDI=,G9.4,5H  CIN=,G9.4.5H  FEE=,G9.4, 

000102 

15H  F I 1= .G9.4.RH  0ELTAV=,G9.4,8H  FACT0R=»G9.4,6H  V0UT=,G9.4,6H  COUT 

000103 

2=,G9.4) 

000104 

LR  a  LPLOCK (N, 1 ) 

000105 

WRITE (IT.P8)  VAVRAG(N) .CTOTAL.VIN(LB.I) 

000106 

88  FORMAT (10X,7HVAVRAG=»G9. 4. 8H  CTOTAL=,G9.4.5H  VIN=»G9.4) 

000107 

c 

000108 

90  IF (KOUNT  -  LMAX(N))  100.  200.  200 

000109 

completion  or  iteration. 

000110 

100  CONTINUE 

oooiu 

c 

000112 

c 

000113 

200  CSUM  =  0.0 

000114 

DO  2?0  LL  =  1,  LHI 

0001  is 

LB  =  1.8L0CK  (N.LL) 

0001  16 

220  CSUM  =  CSUM  ♦  COUT (LB, 1) 

000117 

CNOUT(N)  =  CSUM 

0001  la 

VNOUT(N)  =  VAVRAG(N) 

000119 

KROSS  =  KSTATE 

000120 

JPARL  3  0 

000121 

IF (KPRINT )  400.  300.  400 

00012? 

300 

RETURN 

000123 

400 

WRITEMT,410)K,N,CNOUT(N>  .N.VNOUT(N) 

000124 

410 

format*  6H  AFTER, 14, I9H  ITERATIONS  CNOUT ( , 12, 2H) s.Gl 0.4, 

000125 

1  8H»  VNOUT  <»I?»2H1=,G10.4»  /) 

000126 

RETURN 

000127 

END 

Figure  55b.  P  A  R  L  E  L  Listing  (cont. ) 
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•  LKAX  is  the  number  of  blocks  in  parallel  in  the  sequence, 

•  FACTOR  is  the  current  splitting  factor  for  a  given  block, 

•  CNOUT  and  VNOUT  are  the  output  voltages  and  currents  returned  to  MAIN, 

•  VNIN  and  CNIN  are  the  voltage  and  current  at  the  input  node  as 
supplied  by  MAIN, 

•  KPRINT  controls  printing  of  the  results  of  the  parallel  iteration,  and 

•  JPARAL  is  an  array  created  by  SETUP  which  indicates  whether  a  node 
requires  the  use  of  PARLEL;  JPARAL  »  1  implies  yes. 

The  actions  taken  in  PARLEL  are  indicated  by  the  COMMENT  cards  in  the  listing 
of  Figure  55.  The  input  current  is  split  into  the  blocks,  and  then  propagated 
using  the  crossed  voltage  transfer  functions.  Since  the  Univac  1108  sets  the  re¬ 
sult  of  dividing  any  number  by  zero  equal  to  zero,  logical  IF  tests  set  the 
variables  TESTV  and  THSTC  equal  to  zero  if  •'.he  denominators  VOLD  or  COLD  vanish. 
Otherwise  the  following  consistency  test  would  cV4’  'matically  drop  through  when  it 
should  not. 

After  self-consistency  is  attained,  the  new  current  splitting  factors  are  cal¬ 
culated,  the  deviations  from  the  floating  average  output  voltage  determined,  and 
the  iteration  continued  if  the  deviations  exceed  the  test  value.  After  the  itera¬ 
tion  loop  is  completed,  the  voltage  and  current  at  the  output  node  are  computed  and 
returned  to  MAIN. 

12.  SUBROUTINE  PL0TEM(KIND, VNIN, CNIN, VNOUT, CNOUT, NMAX.INITAL) 

PLOTEN  performs  the  tasks  of  reading  nlot  title  and  control  cards,  and  load¬ 
ing  information  into  the  plot  arrays.  The  listing  of  PLOTEM  is  given  in  Figure  56 . 
The  entries  in  the  call  list  perform  the  following  tasks 1 

•  KIND  controls  action  taken  -  if  negative,  data  cards  are  read;  if 
zero,  points  are  entered  into  plot  arrays;  if  positive,  PL0T6  is 
called  to  force  plotting, 

•  VNIN,  CNIN,  VNOUT,  and  CNOUT  are  the  arrays  containing  node 
voltages  and  currents  as  supplied  by  MAIN, 

•  NMAX  is  the  final  output  node  number, 
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i»  ElT  PLOTEM, 1 ,720302.  47fln 
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.  1 

SU8R0UTINF  PLOTEM (KINO* VNIN.CNIN. VNOUT .CNOUT.NMAX , INITAL1 
INCLUDE  5AP.LIST 
INCLUDE  TIME, LIST 

DIMENSION  VNIN(IX)  .CNINdXl  .VNOUT (I  XI  ,CN0UT(IX1 
PARAMETER  IOIM=lCO, JDIM=6 

DIMENSION  XUDIM, JOIM) ,Y(IDIM.JDIM1 ,XX(IDIM*JDIM) ♦YY(IDIMtJDIM) 

1. LA8EL7(4&J,ILA0EL<6,B) ,IP0INT(7) .TITLE (12) * IOP IGN(7) , SKaLE (7) 

2.  LAW& (?) ,NOXY (JOIM) .IPAR 121 
LOGICAL  INITAL 

DIMENSION  XSCALE (6) .XSKALC  <61 »JPLOT.(4).,  JIPLOT (41 
DATA  (XSCALE (I) .1=1.61 /6HL0G ( TI .6HNANOSE .6HMICR0S.6HMILLIS * 
16HSEC0N0.6H  /,  ( XSK ALE (I > . I  =  ! .61  /l . . 1 . . 1 ,E“3. 1 ,E-6. 1 ,E“9. 1 .0/ 

DATA  ICUPNT/1HI/.IV0LT/1HV/.1N/5/.IT/6/ 

DATA  ICRAD/2HIR/.IVRAD/2HVR/ 

C 

5  FORMAT (8X.12A6) 

6  FORMAT (AS.48A1.13.3X.E12.5.3X.3X.I31 

7  FORMAT (A1,4X.BA6.I3.3X.E12.5.6X.I31 
C 

IF (KINDI  200.400,800 
C 

CALLIN  PL0T6  HERE  WILL  READ  IN  ONE  DATA  CARD.  IF  PLOTIT  APPEARS  IN  THE 
C  FIRST  6  COLUMNS.  THEN  CALCOMP  PLOT  IS  MADE.  IF  NOT.  ONLY  PRINTER 
C  PLOTS.  THE  PLOT  TAPE  IS  ALSO  INITIALIZED  IF  REQUIRED. 

C 

200  IF ( INITAL 1  CALL  PL0T6 (X.Y.NOXY, IPAR, IDIM, JDIM.-l .LABEL7. ILABEL 
1 .IPOINT .TITLE, I ORIGN.SK ALE .LAWG.NUMBER. SIZE. I PAGE 1 
C 

C  INITIALIZATION  OF  ROUTINE 
INITAL  =. FALSE. 

C 

C  READING  THE  PLOT  ASSIGNMENT  CARD.  THIS  DETERMINES  WHICH  BLOCK  OUTPUT 
C  VOLTAGES  OR  CURRENTS  ARE  PLOTTED.  VNIN(11  AND  VNOUT (NMAX1  ARE  ALWAYS 
C  PLOTTED.  NUMJ  IS  THE  NUMBER  OF  ADDITIONAL  BLOCK  VOLTAGES  AND  CURRENTS. 
C  WHERE  NUMJ.LE .4  . 

C 

READ (IN. 26)  NUMJ, ( JPLOT (I 1 ♦ JIPLOT ( I 1 . 1*1 .41 .TSCALE 
26  F0RMAT(I3,4(I3,A2) ,6X,A6) 

WRITE (IT, 28) NUMJ, (JPLOT (II. JIPLOT (I 1,1*1, 4), TSCALE 
28  FORMAT (4SH  THE  PLOT  ASSIGNMENT  CARO  AS  READ  IN  SAYS...,/. 13, 4(13, 
1A21.6X.A6  /I 
NUMBFR  =  NUMJ  ♦  2 
KAROS  =  0 

READ ( IN.51  (TITLE (J!»J=1»121 
WRITE ( I T ,5)  (TITLE(J) ,J=1.12> 

READ (IN, 61  SIZE. (LA8EL7(J1 . J=1 ,48) , IORIGN (71 .SKALE (71 ,LAWG(7l 
READ (IN,  7)IP0INT(11,(ILABEL(1,J)«J*1«81.I0R1GN(1) .SKALE (l).LAWG(l 
11 

DO  30  I  =  1,6 

IF(XSCALE(I).NE. TSCALE)  GO  TO  30 
XSC  =  XSK ALE  (I) 

GO  TO  32 
30  CONTINUE 
XSC  =  1.0 

32  DO  564  I  =  2»  NUMBER 

564  READ(IN.  71  IPOINT (1 1 , (ILABEL ( I »J! ,J*1 ,81 , IORIGN ( 1 1 .SKALE  ( 1 1  » 

I  LAWGdl 
RETURN 

Figure  56a.  PLOTEM  Listing 
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000059 

400 

IF (M  -  1)  404,  404,  410 

000060 

404 

NUMPTS  =  0 

000061 

NOPTS  =  0 

000062 

MODPTS  =  I F I X (MMAX/100)  ♦  1 

000063 

410 

NUMPTS  =  NUMPTS  ♦  1 

000064 

TIM  =  1  lME(MPRIME,MODF.)  «  xsc 

000065 

00  420  1=1,  NUMBER 

000066 

420 

X (NUMPTS, 1 )  =  TIM 

000067 

Y  <NUMPTS*2)  =  VNfN(l) 

000068 

Y (NUMPTS, 1)  =  VNOUT (NMAX) 

000069 

IF (NUMBER. LE.2)  GO  TO  500 

000070 

DO  460  1=1,  NUMJ 

000071 

II  =  JPLOT(I) 

000072 

IF(JIPLOT(I) .EO.ICRAD)  Y(NUMPTS,I»  >  =C0UT(II»3) 

000C73 

IF (JIPLOT (I ) .EQ. I VRAD)  Y(NUmPTS,I  2)  *VOUT (II ,3) 

000074 

IF(JIPLOTd)  .EO.ICURNT)  Y(NUMPTS.I*2)  =  COUT(II»l> 

000075 

IF (JIPLOT (I) .EQ.IVOLT)  Y {NUMPTS. 1*2)  *  VOUT(II*l) 

000076 

460 

CONTINUE 

000077 

500 

IF(MOO(NUMPTS, MODPTS) >  560,520,560 

000078 

520 

NOPTS  =  NOPTS  ♦  1 

000079 

DO  540  1=1,  NUMBER 

000080 

540 

XX (NOPTS, I )  =  TIM 

000081 

YY (NOPTS, 2)  =  VN1N(1) 

000082 

YY (NOPTS, 1 )  =  VNOUT (NMAX1 

000083 

IF(NUMBER.LE.2)  GO  TO  560 

000084 

00  550  1=1,  NUMJ 

000085 

II  =  JPLOT(I) 

000086 

IF(JIPLOTd)  .EO.ICRAD)  YY (  NOPTS, I,2)*C0UT(!I  ,3) 

000087 

IF(JIPLOTd).EQ.IVRAD)  YY (  NOPTS, I,2)*V0UT (1 1 ,3) 

000088 

IF (JIPLOT (I) .EO.ICURNT)  YY(N0PTS,I*2)  *  COUT(II.l) 

000089 

IF (JIPLOT (I) .EO.IVOLT)  YY (NOPTS, 1,2)  =  VOUTtll.l) 

000090 

550 

CONTINUE 

000091 

560 

IF (NUMPTS. NE. 100. AND. KIND. EO.O)  RETURN 

000092 

570 

00  S80  1=1,  NUMBER 

000093 

580 

NOXY(I)  =  NUMPTS 

000094 

CALL  PCNT(IPAGE) 

000095 

(PAGE  =  IPAGE  *1 

000096 

CALL  PLOT6(X,Y,NOXY,IPAR,IDIM,JDIM,KARDS.LABEL7,ILABEL,IPOINT 

000097 

1, TITLF, »OPIGN,SK ale, LAWG, NUMBER, SIZE, IPAGE) 

000098 

NUMPTS  =  0 

000099 

RETURN 

000100 

800 

IF (KIND  -  2)  810,820,900 

000101 

810 

IF (NUMPTS.LT .3)  RETURN 

000102 

GO  TO  570 

000103 

820 

IF (MMAX »LT .103)  RETURN 

000104 

DO  840  1=1,  NUMBER 

000105 

o 

00 

NOXY(I)  =  NOPTS 

000106 

CALL  PCNTdPAGE) 

000107 

IPAGE  =  IPAGE  ♦  1 

000108 

CALL  PLOTMXX,YY,N0XY,IPaR,IDIM,JuIM,0,LABEL7,ILABEL,IPOINT 

000109 

1  ,TITLE » I OP I GN,SK ALE, LA VG, NUMBER, SIZE, IPAGE) 

000110 

N0PT5  =  0 

000111 

return 

000112 

900 

CALL  PL0T6(X,Y*N0XY»IPAR,IDIM,JDIM,-2,LABEL7,ILA8EL»IP0INT 

000113 

1,TITlE,IOPIGN,SKALE, LAWG, NUMBER. SIZE, IPAGE) 

000114 

c 

THIS  IS  THE  NORMAL  TERMINATION  OF  THE  ENTIRE  SAP. 

000115 

CALL  EXIT 

000116 

RETURN 

000117 

END 

Figure  56b.  P  L  0  T  E  M  Listing  (cont, ) 
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•  IfJITAL  -  .TRUE.  causes  FL0T6  to  read  one  data  cardj  if  PLOTIT  is  con¬ 
tained  in  the  first  six  columns,  tho  plot  tape  is  initialized,  8nd 
maohino  plots  will  bo  made. 

The  FORMATS  that  read  the  plot  title  and  control  cards  are  numbers  5,  6,  7, 

26,  and  28.  The  COMMENT  cards  in  the  listing  indicate  the  function  of  the  plot 
assignment  card.  JPLOT  is  the  block  number  whose  output  is  to  be  plotted, 

JIPLOT  indicates  whether  the  voltage,  current,  radiation  induced  voltage,  or  the 
radiation  induced  current  is  to  be  plotted,  being  tested  against  the  entities  in 
the  last  two  DATA  cards  in  the  listing*  TSCALE  sets  the  scale  factor  used  on 
the  time  axis  of  the  plots,  since  nanoseconds  is  not  the  best  unit  if  time  inter¬ 
vals  measured  in  seconds  are  being  treated.  SKALE  is  tested  against  the  spelling 
indicated  in  the  first  DATA  card. 

The  normal  values  for  the  quantities  read  in  by  FORMATS  6  and  7  arei  SIZE  - 
SMALL,  IORIGN  «  -1,  SKALE  -  -1.0,  LAWG  -  0  •  PL0T6  can  make  large  or  small  printer 
plots.  If  two  page  printer  plots  are  desired,  set  SIZE  -  LARGE.  PL0T6  can  plot 
up  to  six  dependent  variables  versus  one  independent  variable  in  one  plot. 

The  final  completion  of  a  run  occurs  in  PLOTEH  with  a  CALL  EXIT,  after  the 
call  to  PL0T6  with  -2  in  the  seventh  list  position  which  causes  proper  plot  tape 
termination. 
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SECTION  VI 

RESULTS  COMPUTED  BY  SAP  USING  TRANSFER  FUNCTION  SURFACES 

The  ooneepts  discussed  in  Seotion  II,  and  the  surface  fitting  techniques  de¬ 
veloped  in  Seotion  IV,  provide  the  tools  needed  to  evaluate  the  usefulness  of  the 
nonlinear  surface  convolution  method  for  simulating  the  effects  of  electrioal  and 
radiation  stimuli  on  integrated  circuits.  The  results  presented  in  this  seotion 
are  new  in  the  research  sense.  No  prior  efforts  existed  that  treated  the  radia¬ 
tion  effects  on  devioes  in  this  way.  The  results  show  that  the  ideas  have  promise 
in  the  sense  of  an  approximation  having  an  engineering  level  of  precision.  Further, 
the  execution  time  on  the  Univae  1108  is  reasonably  low  —  typically  23  seconds  for 
100  time  steps.  The  core  storage  available  on  the  1108  of  6 %  decimal  was  suffi¬ 
cient  to  contain  the  SAP  program,  all  the  plot  routines,  and  six  surfaces  without 
segmenting.  If  the  plot  routines  had  been  segmented,  since  they  are  needed  only  at 
the  end,  at  least  ten  or  more  additional  surfaces  could  have  been  contained  in  core. 
Thus  it  appears  that  the  method  does  indeed  have  sufficient  computational  character¬ 
istics  to  make  genuine  its  usefulness  for  real  applications. 

1.  741  OP  AMP  -  ELECTRICAL  RESULTS 

The  computed  results  due  to  application  of  a  1.0  mv  pulse  to  the  74l  T  surface, 
Figure  20,  are  shown  in  Figure  57.  The  input  pulse  is  shown  in  Figure  57a,  the  in¬ 
put  and  output  voltages  and  the  output  current  in  Figure  57b,  and  the  details  of 
the  leading  and  trailing  edges  of  the  pulse  in  Figure  57c  and  d.  The  plot  points 
on  the  plots  occur  at  twice  the  interval  of  computation,  otherwise  no  line  could 
be  seen.  The  number  of  time  steps  was  100.  Because  the  input  pulse  waveform  is 
almost  a  square  pulse,  the  convolution  process  amounts  to  almost  an  isovoltage 
sampling  of  the  surface  in  this  case,  except  for  two  points  on  the  rising  and  fall¬ 
ing  edges  which  move  back  at  half  the  peak  pulse  level  and  sample  the  surface  at 
the  500  microvolt  portion. 

To  ascertain  the  sine  wave  response  obtained  with  the  T  surface,  six  runs  were 
made  varying  the  frequency  and  the  amplitude  of  the  input  waveform.  These  runs  were 
made  after  the  self-consistency  loop  had  been  inserted  into  MAIN,  and  the  optimisa¬ 
tion  of  DRIVER'S  convergence  tests  was  still  under  way.  The  frequencies  were  ohosen 
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VNOUT  OUTPUT  NODE  VNIN  INPUT  NODE 

6.0  0.0  6.0  12.0  18.0  V  -.40  0.  OG  .40  .80 


SR P  DETERMINATION  OF  741  RESPONSE 


0.00  0.00 


20.00 


<xio**e> 

40.00  60.00 


80.00 


iOO.OO  i20 .00 


TIME  IN  NANOSECONDS 
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20.00  40.00  60.00  80.00  100.00  120.00 


TIME  IN  NANOSECONDS 


Figure  57a  •  Op  Amp  Response  to  50  ms  Step  Pulse* 

Input  Waveform  has  1  ms  Rise  and  Fall  Times 0 
See  Figure  57b  for  VNOUT  wa/ofonu* 


SAP  DETERMINATION  OF  741  RESPONSE 


VOUT 


<X10**6) 

I  0.00  2P.00  40.00  SO. 00  80.00  100.00 
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TIME  IN  NANOSECONDS 


Figure  57b,  7^1  Op  Amp  Response  to  Step  Pulse, 
VIN  and  VOUT  irolts,  COUT  in  ma. 


DEPENDENT  VRRIRBLES 


DEPENDENT  VARIABLES 
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to  be  about  an  order  of  magnitude  above,  below,  and  approximately  at  the  reciprocal 
of  the  open  loop  time  constant.  The  peak  input  waveform  amplitudes  were  chosen  to 
lie  in  the  linear  and  nonlinear  operating  regions.  Since  the  stimulus  is  a  sine 
wave,  partitions  are  driven  back  along  the  surface  at  input  voltages  which  range 
from  plus  to  minus  the  peak  amplitude  of  the  sine  wave.  Thus  a  sine  wave  input 
reaching  into  the  nonlinear  region  also  samples  the  linear  region  of  the  device 
characteristic.  This  is  the  same  situation  as  for  a  real  device. 

The  machine  plots  of  the  six  runs  are  contained  in  Figure  58.  The  summary  of 
the  conditions  applying  for  the  runs  arej 


£i&_ 

Run 

VIN 

Phase 

Frea 

Comments 

58a 

335 

0.2mv 

0° 

2  Hz 

58b 

336 

2.0 

2 

Time  step  too  large  for  surface. 

58c 

337 

2.0 

37° 

20 

Lost  iterate  twice  but  came  back  in. 

58d 

338 

0.2 

20 

58e 

340 

0.2 

78° 

200 

Note  correct  form  of  transient. 

58f 

341 

2.0 

200 

11  11  11  m  11 

58g 

349 

2.0 

200 

Return  of  341  with  CONVOL  bug  corrected} 

note  only  slight  effect  on  results. 


The  phase  given  is  that  of  the  output  lagging  the  input.  The  change  of  the  phase 

with  frequency  yields  fcorner  «  20  Hz.  In  the  case  of  the  2  Hz  runs,  the  step 

size  was  so  large  that  only  two  partitions  were  sampling  the  surface  at  any  moment 

of  the  calculation.  Now  since  the  effective  time  constant  of  the  T  surface  for 

e 

the  741  decreases  with  increased  excitation  (until  slew  rate  is  reached)  that  small 
a  number  of  sampling  partitions  yields  an  unsatisfactory  result  as  can  be  seen  in 
Figure  58b,  for  the  2.0  mv  nonlinear  excitation  level.  Compare  that  with  the  re¬ 
sult  contained  in  Figure  58a  for  a  linear  excitation  whose  effective  time  constant 
is  about  an  order  of  magnitude  greater,  and  it  is  seen  that  a  fairly  smooth  out¬ 
put  function  is  computed  for  the  same  time  step  size. 

The  curve  for  the  2.0  mv,  20  Hz,  run  shown  in  Figure  58c  is  interesting  in  that 
it  demonstrates  an  interesting  aspect  of  convolutional  calculation  methods,  namely 
at  about  150  milliseconds  the  iteration  process  lost  stability.  Yet,  in  two  time 
steps  the  iteration  routine  DRIVER  regained  stability  with  only  a  very  small  effect 
remaining  from  the  prior  iteration  loss.  This  results  from  the  fact  that  convolu¬ 
tion  is  the  superposition  of  many  terms,  and  unless  a  faulty  iteration  yields  an 
excessively  large  term,  the  large  number  of  the  good  terms  minimizes  the  effect  of 
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SECON 


741  SINE  WAVE  RESPONSE  RUN  #336 


RMPL-2.0MV.  FREQ-  2  HZ 


i  i  i  i  r  i  i  i  i  i  i  n  i  i  r 


0.0  1.0  2.0  3.0 

TIME  IN  SECONDS 


Figure  58b*  741  Response  to  2  Hz*  2m  Sine  Ware 


ti  ibc  n 


741  SINE  WRVE  RESPONSE  RUN  #338 


741  SINE  WRVE  RESPONSE  RUN  *340 


Figure  58e.  7M  Response  to  200  Hz,  0,2  mv  Sine  Wave 


741  SINE  WRVE  RESPONSE  RUN  #341 


741  SINE  WAVE  RESPONSE  RUN  #349 


Figure  58g,  741  Response  to  200  Hz,  2.0  m  Sine  Wave.  Rerun  of  Run  341  with 
CONVOL  Corrected  for  Multiple  Calls  by  Self-Consistency  Loop. 
Compare  with  Figure  ^f • 


a  few  incorrect  terms. 


At  higher  frequencies,  above  the  comer  frequency,  as  evidenced  in  the  re¬ 
sults  of  Figure  58e  and  f,  the  initial  transient  due  to  turn  on  of  the  excitation 
yields  an  output  response  which  is  distinctly  biased  in  the  direction  of  the  ini¬ 
tial  impulse.  This  is  precisely  the  result  expected  by  a  rigorous  theoretical 
analysis  of  a  linear  one  pole  circuit  by  Laplace  transform  techniques.  Thus  as 
would  be  really  expected,  convolution  on  the  transfer  function  surface  does  pro¬ 
vide  the  correct  transient  solution  to  the  high  frequency  sine  wave  stimulus. 

As  time  progresses,  the  response  returns  to  the  usual  steady  state  solution  with 
the  output  swinging  equally  about  the  aero  voltage  axis. 

Figure  58g  is  the  rerun  of  the  results  presented  in  Figure  5^f  in  which  a  bug 
in  CONVOL  was  corrected  that  was  coming  into  account  when  the  self-consistency 
loop  in  MAIN  drove  into  CONVOL  after  the  first  iteration.  The  interesting  aspect 
to  note  is  that  the  difference  between  the  two  figures  is  actually  very  slight,  and 
shows  again  the  stability  of  a  convolutional  calculation  process  against  errors  in 
only  one  term  out  of  a  large  number.  The  solution  is  indeed  determined  by  the  en¬ 
tire  surface  shaping  rather  than  just  the  instantaneous  derivative  at  the  current 
time  step  as  in  the  case  of  a  state  variable  solution. 

A  comparison  of  the  741  response  to  a  pulse  with  and  without  feedback  is  con¬ 
tained  in  Figure  59.  The  response  to  the  input  pulse  of  Figure  59a,  bottom,  is 
shown  in  Figure  59a,  top,  and  Figure  59b.  The  voltage  at  the  input  node  was  divided 
down  by  a  lOk/lk  voltage  divider  to  the  device  input,  hence  the  741  input  level  was 
approximately  1  mv.  The  output  level  is  seen  to  be  somewhat  over  15  volts,  yield¬ 
ing  a  circuit  gain  of  about  15,000.  The  input  pulse  rise  time  was  5  ms,  whereas 
that  of  the  output  was  10  ms.  This  demonstrates  again  the  slowness  of  the  open 
loop  741, 

The  time  step  size  used  in  the  calculation  for  the  above  cause  was  5  milliseconds. 
The  fact  that  a  reasonably  valid  result  can  be  achieved  with  such  a  large  time  con¬ 
stant  is  interesting  of  itself. 

The  pulse  response  as  calculated  using  the  parallel  algorithm  discussed  in 
Section  II  for  a  feedback  configuration  is  given  in  Figure  59c  and  d.  The  feed¬ 
back  resistor  was  100K,  while  the  resistance  from  inverting  input  to  ground  was 
IK;  hence  the  circuit  gain  should  be  100.  The  input  pulse  magnitude  was  0.1  at 
the  device.  The  magnitude  of  the  output  is  seen  in  Figure  59c,  top,  to  be  10.0. 
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Figure  59c.  ?41  Response  to  Same  Input  Pulse  With  Feedback, 

Note  Input  Risetime  is  Reduced  to  1  ms  and  the 
Output  Rise time  to  2  ns. 
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VNIN  INPUT  NODE  VNOUT  OUTPUT  NODE 


SAP  741  WITH  FEEDBACK 


Figure  59d.  ?41  Response  to  Pulse  With  Feedback* 

Early  Time  Portion  of  Waveform. 
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Hence,  the  computed  circuit  gain  is  in  exact  agreement  with  that  expected  theore¬ 
tically.  This  demonstrates  that  the  parallel  iteration  algorithm  does  work 
correctly.  The  critical  aspect  of  the  calculation  for  this  case  was  the  fact  that 

the  current  splitting  between  the  device  input  and  the  feedback  resistor  differed 
1 2 

by  a  factor  of  10  .  The  use  of  double  precision  arithmetic  would  seem  advisable 

in  such  cases.  Nevertheless,  the  results  of  the  single  precision  calculation  by 
PARLEL  do  seem  satisfactory  here. 

Note  also  the  higher  response  speed  of  the  7^'  in  the  feedback  configuration 
as  compared  with  open  loop  case.  The  output  pulse  rise  time  seen  in  Figure  59c, 
top,  is  2  ms;  which  is  five  times  faster  than  that  obtained  in  Figure  59a,  top, 
for  the  open  loop  case. 

An  important  point  is  correctly  selecting  the  EPSLON  convergence  criteria  which 
the  iteration  loop  in  MAIN  and  the  current  splitting  loop  in  PARLEL  are  driving 
towards.  A  relatively  loose  criteria  is  needed  in  the  parallel  iteration  loop; 
in  the  case  above  0.1.  This  seems  rather  large  when  compared  with  the  parts  per 
million  convergence  routinely  achieved  on  the  fixed  output  variable.  On  the 
other  hand,  a  computational  validity  of  0.1  v  out  of  10.0  v  is  a  relative  preci¬ 
sion  of  1  percent.  In  experimental  electrical  engineering  activities  that  degree 
of  precision  is  regarded  as  acceptable. 

The  essential  point  deduced  by  detailed  analysis  of  the  printed  listings  of 
the  parallel  iterations  runs  was  the  inner  parallel  iteration  loop  should  have  a 
loose  convergence  criteria  particularly  at  the  beginning  of  the  outer  iteration, 
and  then  can  be  tightened  up  as  the  outer  iterate  is  improved. 

In  a  test  run  using  linear  resistors  connected  in  parallel,  the  inner  loop 
converged  exactly  on  the  second  iterate.  With  a  smaller  spread  of  current  splitting 
factors,  the  single  precision  computation  is  less  a  problem.  However,  the  conver¬ 
gence  criteria  of  the  inner  loop  had  to  be  about  two  orders  of  magnitude  tighter 
in  this  case,  or  approximately  the  same  as  that  of  the  outer  loop  as  controlled 
by  DRIVER. 

2.  741  OP  AMP  -  RADIATION  RESULTS 

In  the  foregoing,  only  two  stimulus  functions,  the  voltage  and  current  driving 
into  a  block  were  taken  into  account  by  SAP.  These  were  then  propagated  through 
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the  system  blocks  by  the  successive  block  transfer  functions.  With  radiation 
applied,  one  or  perhaps  two  additional  forcing  functions  are  driving  the  system 
response,  namely  cpx  and  cpj,,,  representing  the  X-ray  and  neutron  dosage  functions. 

The  manner  in  which  these  forcing  functions  act  on  the  system  is  different  from 
the  electrical  stimuli  in  that  they  act  simultaneously  on  all  blocks.  This  differ¬ 
ence  is  shown  schematically  in  the  block  computational  diagram  as  shown  in  Figure  60. 
The  electrical  response  of  the  block  to  the  radiation  stimulus  still  propagates 
in  the  normal  sense  however. 

The  radiation  voltage  and  current  transfer  functions  are  shown  tied  onto  the 
radiation  stimulus  lines  essentially  in  parallel,  with  the  outputs  summing  into 
the  block  output  terminals. 

A  basically  interesting  point  now  arises  in  relation  to  the  fundamental  itera¬ 
tion  procedure  that  SAP  uses  to  solve  the  system  problem.  Before  with  just 
electrical  stimulus,  one  input  variable  was  fixed  and  a  modified  Newton’s  method 
iteration  algorithm  applied  to  the  adjusted  input  variable  to  meet  the  prescribed 
output  constraint  condition  on  the  fixed  output  variable.  Now  with  a  radiation 
stimulus  also  acting,  additional  phenomena  are  occurring  which  are  outside  of  the 
normal  iteration  loop.  This  is  tantamount  to  the  realization  that  the  driving 
function  is  an  independent  variable  for  the  case  of  radiation,  but  which  is  not 
true  for  the  adjusted  input  variable.  On  this  basis,  the  radiation  terms  were  ex¬ 
cluded  from  the  iteration  process  taking  place  on  the  adjusted  input  variable. 

The  block  input  and  output  impedances  are  represented  in  Figure  60  as  and 
Zout*  For  a  linear  element,  these  would  be  very  simple  and  perhaps  best  represen¬ 
ted  by  an  appropriate  equation  for  the  particular  circuit  element.  For  digital 
circuits,  a  machine  fit  to  the  experimental  characteristics  may  be  best.  Such 
characteristics  were  taken  at  xhe  SPR  for  the  gates,  and  showed  relatively  small 
change  with  successive  exposures. 

Voltage  and  current  radiation  transfer  functions  are  shown  in  Figure  60  for 
each  block  element.  In  our  measurements  at  the  Kirtland  FXR  or  the  Sandia  Pulse 
Reactor  (SPR),  it  seemed  that  one  or  the  other  are  primarily  important.  The  other 
may  be  small,  or  perhaps  linearly  related.  Hence  it  does  not  seem  always 
necessary  to  resort  to  a  surface  representation  for  both  independently. 

The  radiation  forcing  functions  programmed  into  RADGEN  are  piecewise  linear, 
Gaussian,  and  Weibull  distributions.  The  SPR  radiation  waveshape  in  time  is 
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BLOCK  I  BLOCK  2 


Figure  60,  Schematic  Computational  Block  Diagram  Indicating  How 
Radiation  Drives  Simultaneously  into  all  Blocks. 


approximately  Gaussian |  however,  some  assymetry  is  evident  in  the  shape  relative 
to  the  peak*  This  type  of  asymmetry  can  not  be  achieved  by  a  Gaussian  distribu¬ 
tion*  The  Weibull  distribution  is  more  flexible  in  that  vastly  different  shapes 
can  be  generated  by  adjustment  of  the  shape  parameter*  The  equations  for  these 
two  distributions  are  i 

Gaussian 

/.x  A  (t-T)2 

»(t)  '  3713  ,xp-  -pr- 

wherein  A  -  amplitude,  a  -  width  parameter,  and  t  -  time  of  peakj 
Weibull 

o(t)  -  8  or"8  (t  -y)8 ' 1  exp- 1 

in  which  a-  time  scaling  factor,  8  -  shape  determining  factor,  and  y  »  time  loca¬ 
tion  parameter*  The  value  of  y  is  usually  zero*  For  the  shape  parameter  8  equal 
to  a  large  positive  number,  say  about  ten,  the  Weibull  distribution  is  a  narrow 
peaked  distribution  like  a  Dirac  delta  function  and  a  is  the  time  at  which  the 
peak  occurs*  For  8*  1,  the  Weibull  distribution  becomes  an  exponential*  We 
judge  that  a  value  of  8  about  3  approximates  the  3PR  radiation  waveshape. 

By  inspecting  the  mode  of  calculation  given  in  Figure  60,  and  neglecting  for 
simplicity  the  input-output  impedance  terms,  it  is  possible  to  write  a  closed  form 
expression  for  the  system  output  voltage  and  current  in  terms  of  the  transfer  func¬ 
tions  and  the  input  stimuli.  Suppose  for  example,  that  we  had  three  blocks  and 
looked  at  the  voltage  calculation,  the  terms  that  enter  into  the  machine  computa¬ 
tion  aret 

*o3  '  V  T.2T.1*1  +  CT.2T**1  +  V  ^  )+  T«p3  » 

Or,  in  the  general  case 
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with  a  similar  expression  for  the  current*  While  the  above  expression  is  nice 
in  terms  of  being  able  to  reduce  the  operations  into  a  form  of  transformations 
acting  on  the  stimulus  functions,  the  machine  calculations  more  closely  follow 
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the  computational  strategy  contained  in  the  block  diagram  format  of  Figure  60. 

An  interesting  phenomena  came  to  light  in  the  machine  computations,  namely 
with  small  but  non-zero  values  of  the  voltage  stimulus  variable  on  the  input,  the 
iteration  procedure  does  not  have  sufficient  signal  upon  which  it  can  operate  so 
that  it  can  significantly  effect  the  output#  Hence  if  factors  such  as  digital 
noise,  or  carryover  from  the  radiation  terms  upset  the  output  result,  the  iterate 
is  too  small  to  overcome  and  null  them.  This  meant  that  those  runs  which  had  a 
simultaneous  electrical  signal  applied  during  the  radiation  pulse  yielded  a  more 
stable  iteration  pattern  than  runs  where  the  electrical  stimulus  was  small  or  non¬ 
existent.  The  solution  to  this  problem  consisted  of  isolating  the  radiation  terms 
from  the  iteration  process,  and  eliminating  carry-over  of  prior  computation  ele¬ 
ments  by  the  self-consistency  loop. 

The  very  first  runs  that  attempted  to  calculate  the  radiation  response  did  have 
a  concurrent  electrical  signal j  consequently  the  iteration  was  very  stable  as  the 
curves  of  Figure  6l  and  Figure  62  nicely  show.  Figure  6la  (bottom)  is  the  response 
to  a  FXR  pulse  of  dose  *«  10^  and  an  electrical  pulse  of  1  mv,  as  shown  in 
Figure  6la,  (top).  Figure  6lb  is  the  combined  plot.  A  logarithmic  time  base  was 
used  in  this  calculation,  covering  seven  orders  of  magnitude  in  time  in  100  equi- 
interval  log  (time)  steps. 

The  radiation  first  drives  the  output  negative,  and  then  up  into  positive 
saturation  until  a  time  of  about  5  ms*  The  electrical  input  then  becomes  effective 
and  drives  the  output  down  and  dies  away.  Since  the  radiation  simulation  is  that 
of  an  FXR  burst,  convolution  of  the  radiation  surface  was  not  necessary;  rather 
just  one  partition  was  driven  back  along  an  isodosal.  The  electrical  response  re¬ 
presents  the  result  of  convolution  of  many  partitions  along  the  Tg  surface.  Three 
surfaces  were  resident  in  core  for  the  run  —  TE741,  TRX741 ,  and  TRN741. 

The  result  of  superimposing  a  SPR  neutron  burst  with  the  same  electrical  pulse 
is  shown  in  Figure  62.  The  initial  positive  and  then  negative  voltage  swing  re¬ 
sults  from  the  valley  present  in  the  741  SPR  surface,  Figure  23,  at  high  dose. 

Note  how  the  electrical  term  is  more  significant  here  than  in  the  case  of  an  FXR 
burst  since  the  SPR  burst  is  relatively  slower  in  time  by  about  three  orders  of 
magnitude,  and  at  the  high  dose  end  of  the  SPR  surface,  degradation  has  reduced  the 
long  time  radiation  response.  This  run  was  executed  prior  to  the  incorporation  of 
the  routine  DAMAGE  into  the  computation. 
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SAP  DETERMINATION  OF  741  FXR  RESPONSE 
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Figure  6lb.  741  Response  to  Both  Electrical  and  Radiation  Stimulus.  Note 
Log(Tirae)  Base  Covers  Seven  Orders  of  Magnitude  in  100  Steps. 
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DEPENDENT  VARIABLES 


The  results  presented  in  Figure  6j.  and  Figure  62  were  obtained  on  the  same 
job  submission  in  about  one  minute  execution  time  on  the  Univac  1108.  File  mani¬ 
pulation,  and  compilations  if  any,  typically  extend  the  execution  time  another 
30-40  seconds.  The  computations  are  extending  over  seven  to  eight  orders  of 
magnitude  in  simulation  time.  The  calculational  time  base  and  the  plot  time  base 
were  both  logarithmic.  If  a  linear  plot  scale  is  used,  the  fast  early  phenomena 
are  invisible. 

The  FXfl  simulation  of  Figure  63  is  for  a  somewhat  lower  dose  level  of  y  = 

n 

6,8  x  10  and  no  electrical  stimulus.  There  are  actually  four  curves  of  signifi¬ 
cance  on  the  figure,  rather  than  the  evident  three.  The  top  curve  is  the  output 
current  in  milliamperes.  The  center  curve  is  actually  two  curves  lying  on  top  of 
each  other.  The  plus  symbols  denote  the  radiation  response  alone {  the  squares  de¬ 
note  the  superposition  of  that  with  the  electrical  output.  Since  the  input,  as 
given  by  the  curve  on  the  zero  voltage  line  by  diamonds,  is  zero,  the  degree  of 
success  of  the  iteration  process  in  MAIN  is  indicated  by  the  difference  between 
the  two  center  curves.  A  small  difference  means  the  process  is  working  well,  a 
large  difference  contrariwise.  Figure  64  is  a  SPR  simulation  for  a  dose  of  10^, 

3.  9704  NAND  GATE  ELECTRICAL  RESPONSE 

The  electrical  response  of  the  9704  gate  is  calculated  using  the  surface  de¬ 
picted  in  Figure  26.  Since  the  ?.  coordinate  of  the  surface  directly  returns  the 
output  magnitude,  rather  than  a  transfer  function,  the  multiplier  UMULT  on  the  con¬ 
volution  terms  in  C0NV0L  is  set  to  the  value  one  rather  than  the  stimulus  variable 
UIN,  as  can  be  seen  in  the  listing  of  Figure  52c.  Also  since  the  surface  represents 
the  results  cf  first  turning  on,  and  then  turning  off  the  pulse,  if  a  partition 
continuously  moves  back  along  the  surface  two  output  pulses  ax  venerated,  one  at 
the  turn  on  transition-  and  one  at  the  turn  off  transition.  1  yields  a  double 
pulse  of  opposite  polarities,  as  is  shown  in  Figure  65  (top).  The  input  pulse  that 
generated  it  is  shown  in  Figure  65  (bottom).  It  is  seen  that  the  first  pulse  is  a 
reasonably  good  approximation  to  the  real  device  response  as  shown  in  the  x-y  re¬ 
corder  tracing  of  a  sampling  oscilloscope  output  given  in  Figure  66. 

By  simply  setting  the  value  of  XHIGH  for  the  surface  of  Figure  26  to  a  value 
of  about  200  ms,  TSURF  returns  the  surface  z  value  at  XHIGH  when  the  call  from 
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Figure  66.  X-Y  Recorder  Tracing  Made  with  a  Sampling  Oscilloscope 
of  9?04  NAKD  Gate  Response  to  a  Pulse  Input  Waveform. 


CONVOL  has  a  time  coordinate  exceeding  XHIGH.  The  result  is  to  delete  the  second 
pulse  as  is  shown  in  Figure  6?>  The  rise  after  the  pulse  is  resumably  due  to 
the  surface  structure  just  ahead  of  the  new  XHIGH  value.  Further  computer  experi¬ 
ments  would  consist  of  further  reduction  of  XHIGH  or  smoothing  of  the  surface 
in  the  low  state.  There  is  however  a  fairly  good  simulation  of  the  rise  and  fall 
times  of  the  real  device.  Thus  even  with  the  relatively  preliminary  nature  of  the 
results  presented  here,  it  appears  that  convolution  on  experimentally  obtained 
input-output  surfaces  can  yield  dynamical  representations  of  device  performance 
which  are  fairly  good. 

One  aspect  of  work  on  which  effort  was  not  expended  because  of  the  limited 
time  span  available  was  the  modeling  of  multiple  inputs  to  the  gate.  There  are  at 
least  two  ways  of  doing  this.  One  is  to  use  logical  AND  statements  on  the  indivi¬ 
dual  input  signals  to  ascertain  the  logic  state,  and  to  obtain  the  dynamics  then  by 
taking  the  equivalent  composite  pulse  and  running  it  back  along  an  isovoltage  loci 
on  the  surface.  Thus,  convolution  would  not  be  required.  This  essentially  is 
equivalent  to  presuming  that  the  input  pulse  rise  times  are  all  very  short,  rather 
than  like  a  slow  ramp.  The  alternative  procedure  is  to  convolve  each  individual 
pulse  along  the  surface  and  3um  the  outputs  moduloed  down  by  the  number  of  inputs  N. 
Thus,  the  switching  threshold  would  be  N  times  the  individual  input  threshold.  If 
the  sum  is  more  than  the  N  threshold,  then  the  logic  device  switches. 

The  actual  device  has  multiple  emitters  on  one  transistor.  That  transistor 
essentially  forms  a  composite  input  waveform  to  the  emitter-base  junction.  The 
junction  really  does  not  see  separate  waveforms  coming  in.  The  input  transistor 
operates  in  grounded  base  configuration,  and  is  fast  since  the  alpha  rather  than 
the  beta  cut-off  frequency  is  applicable.  The  slowness  of  the  entire  circuit  is 
due  to  the  fact  that  the  following  transistors  operate  grounded  emitter.  The  logic 
function  arises  at  the  input  since  if  any  one  emitter  is  down,  it  hogs  all  the  base 
current  and  keeps  the  input  transistor  on.  Only  when  all  the  emitters  are  high 
does  the  input  transistor  turn  off,  and  so  turn  on  the  following  stage.  After  the 
first  input  transistor,  the  circuit  is  the  same  as  a  single  input  device.  The 
logic  thus  occurs  right  at  the  input  as  in  other  T2L  devices. 

Thus,  since  the  input  device  is  fast,  and  the  logic  occurs  immediately,  it 
would  appear  reasonable  to  use  a  logical  IF  statement  to  perform  the  logic  function, 
and  the  surface  to  generate  the  total  dynamics  from  the  composite  waveform  thus 
created. 
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The  convolutional,  approach  on  the  individual  input  waveforms  would  appear  better 
in  cases  which  sore  more  apt  to  have  input  stimuli  which  are  slow  or  have  uncertain 
voltage  levels,  perhaps  lying  in  the  transitional  range.  Then  the  motion  of  the 
partitions  on  the  surface  would  sample  the  slow,  long-time  constant,  transitional 
region  of  the  response  surface. 

The  merit  of  these  two  methods  should  be  ascertained  in  any  future  work  with 
the  general  ideas  discussed  in  this  report. 

4.  9704  NAND  GATE  RADIATION  RESPONSE  SIMULATION 

The  combination  response  to  an  FXR  pulse  and  the  voltage  waveform  shown  in 
Figure  68  (bottom)  is  presented  in  Figure  68  (top).  This  represents  the  output  as 
calculated  using  the  voltage  response  surface  (Figure  26);  the  radiation  voltage 
response  surface  (Figure  39)}  and  the  radiation  current  response  surface  (Figure 
4o).  The  device  was  loaded  with  a  500“°hm  resistor  rather  than  another  gate.  The 
computed  waveform  seems  to  be  primarily  determined  by  the  basic  electrical  response 
alone  because  the  dosage  y»  1  x  10*°  is  below  the  level  at  which  a  significant 
excursion  occurs  on  T as  in  Figure  39 •  The  magnitude  of  the  radiation  terms 
in  Figure  68  (top)  are  only  about  O.lv  in  magnitude  and  so  do  not  dominate  the 
electrical  term. 

The  first  attempt  at  the  neutron  simulation  is  shown  in  Figure  69,  The  plotted 
output  became  very  large  and  negative  near  the  end  of  the  calculation.  This  was 
seen,  by  looking  at  the  listings  of  the  convolution  sums,  to  be  due  to  the  continu¬ 
ing  contribution  of  partitions  on  the  T0  surface  which  had  reached  the  end  of  the 
surface  and  were  continuing  to  contribute  ever  larger  and  larger  values  to  the  sum 
by  virtue  of  the  logarithmic  increase  of  the  time  step  multiplier  coming  into  play 
as  time  went  on.  Since  the  surface  terminates  at  450  ns,  a  partition  whose  time 
step  multiplier  is  in  the  millisecond  range  makes  a  very  large  contribution  in  the 
calculation  even  though  its  dynamic  effects  are  long  past. 

The  cure  to  this  problem  turned  out  to  be  relatively  simple  as  shown  in  the 
TSURF  listing  of  Figure  53,  when  the  time  entry  look-up  variable  exceeds  10  times 
the  XHIGH  value  for  the  surface,  simply  return  the  value  zero  to  C0NV0L.  The  re¬ 
sulting  change  in  the  calculated  result  is  shown  in  Figure  70.  For  this  particular 
run,  four  surfaces  were  resident  in  core  and  were  being  used  simultaneously  during 
the  calculation.  These  surfaces  arei 
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Figure  69.  First  SAP  Simulation  of  9704  Neutron  Response  with  Electrical 
Pulse.  Log(time)  Base  and  Large  XHIGH  Caused  Divergence, 
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Figure  70,  Second  SAP  Simulation  of  9704  Neutron  Response  with  Electrical 
Pulse,  Reducing  Value  of  XHIGH  Stabilized  Convolution  Process. 
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9704  Voltage  Response  Surface, 

9704  SPR  Voltage-Neutron  Radiation  Surface, 

9704  SPR  Current-Neutron  Radiation  Surface,  and 

741  SPR  Voltage-Neutron  Radiation  Surface. 


The  latter  surface  was  being  used  by  DAMAGE  to  calculate  the  permanent  degrada¬ 
tion  caused  by  the  shot. 


The  rather  interesting  item  of  interest  of  the  result  shown  in  Figure  70  is 
the  prediction  that  the  output  voltage  rises  above  the  supply  voltage  of  5  v  to  a 
value  more  than  6  v.  Rechecking  the  Polaroid  pictures  taken  during  the  experimen¬ 
tal  bursts  at  the  SPR  showed  that  this  was  indeed  true,  and  the  calculated  value 
agreed  very  well  with  that  observed. 

The  results  of  higher  neutron  radiation  level  are  given  in  Figure  71,  for  the 
case  of  a  simultaneous  low  electrical  input  state.  The  load  again  for  the  calcu¬ 
lation  is  a  500-ohm  resistor.  The  dominant  term  in  the  output  voltage  is  the  photo¬ 
current  from  the  radiation  current  transfer  function  surface,  Figure  36.  The 
radiation  voltage  term,  the  curve  with  small  triangles,  did  not  seem  to  have  as 
much  effect  on  the  output  as  might  have  been  expected.  Thi3  might  have  arisen  due 
to  the  manner  in  which  the  degradation  effect  was  being  handled  by  DAMAGE  and  MAIN. 


The  case  of  a  high  electrical  input  on  the  gate,  along  with  a  high  level  SPR 
burst  is  shown  in  Figure  72.  The  first  dip  and  peak  seem  to  ^be  spurious,  perhaps 
due  to  the  large  time  steps  overweighing  the  convolution  process.  It  might  be  wise 
to  keep  in  mind  that  the  convolution  calculation  is  essentially  the  approximation 
to  an  integral,  and  when  the  differential  time  step  size  becomes  comparable  or 
larger  than  the  length  of  the  surface  axis  being  integrated,  one  has  to  ask  just 
how  far  such  a  concept  can  be  stretched.  Our  approach  in  this  particular  run-  was 
to  test  on  VIN,  the  gate  input  voltage,  and  DT,  the  time  step  interval.  For  time 
steps  where  successive  values  of  VIN  are  the  same,  and  DT  is  more  than  some  large 
fraction  of  XHIGH,  the  surface  length,  then  the  output  was  calculated  as  simply 
the  surface  value  itself  evaluated  at  VIN  and  XHIGH  Thus,  the  output  can  be  re¬ 
turned  by  one  look  up  on  the  surface.  Evidently  our  coding  was  imperfect  on  this 
run,  so  that  further  effort  is  needed  to  properly  develop  the  response  by  such 
a  procedure.  ^ 
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SAP  3704  SPR  PULSE  INPUT  LOW 


RUN  #588  DOSE  =  5.0*10**13 


>i  nn  t< 
ll‘UUI 


Figure  71#  SAP  Simulation  of  9704  Response  with  Low  State  Electrical 
Input  and  High  Dose  SPR  Neutron  Radiation  of  5»0  x  10*3, 
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DEPENDENT  VARIABLES 


SR P  9704  SPR  PULSE  INPUT  HIGH 


RUN  #589  DOSE  *  5.0+iQ**13 


LOG(TIME  IN  NANOSECONDS) 


Figure  ?2.  SAP  Simulation  of  9704  Response  with  High  State  Electrical 
Input  and  High  Dose  SPR  Neutron  Radiation  of  5*0  x  10*5, 
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The  last  figure  in  the  series,  Figure  73 »  shows  the  calculation  of  the  degrada¬ 
tion  of  the  device  due  to  the  neutron  shot.  This  is  evidenced  by  the  fact  that 
after  the  neutron  burst  there  is  no  electrical  output  due  to  the  turn  on  of  an 
electrical  input  pulse  at  a  time  of  10  ms,  corresponding  to  log(tim< )  »  7  along 
thu  plot.  For  convenience,  the  value  of  the  Function  DAMAGE  as  calculated  during 
the  run  is  also  plotted  on  Figure  73 •  This  should  only  be  regarded  as  demonstra¬ 
ting  a  concept,  rather  than  being  actually  valid  for  the  9704.  The  damage  was 
calculated  by  moving  out  along  an  isochronal  of  the  radiation-voltage  transfer 
function  of  the  74lf  which  is  certainly  not  a  hardened,  dielectrically  isolated 
device.  The  dosage  integration  and  evaluation  of  the  surface  z  coordinate  are 
handled  by  DAMAGE,  TSURF,  and  SURFB.  The  value  of  DAMAGE  is  then  used  as  a  multi¬ 
plier  in  MAIN  to  destroy  the  gain. 

It  appears  then  that  reasonable  success  can  be  obtained  with  a  computer  based 
strategy  which  generates  the  system  responses  by  retrieving  the  dynamical  infor¬ 
mation  by  convolution  and  interpolation  simultaneously  on  a  number  of  multi¬ 
dimensional  surfaces.  The  results  presented  in  this  section  are  the  first  attempted 
by  such  a  strategy  to  calculate  the  effects  of  radiation  on  electrical  devices. 

The  computational  characteristics  are  reasonably  good.  The  execution  time  for  run 
390,  the  SPR  simulation  with  delayed  voltage  pulse  of  Figure  73,  was  only  5*959 
seconds  for  50  time  steps  despite  the  fact  that  four  surfaces  were  being  processed 
during  the  calculation.  While  the  effort  expended  in  this  program  was  only  able 
to  scratch  the  surface  so  to  speak,  the  results  are  not  discouraging. 


208 


DEPENDENT  VARIABLES 


S ftp  9704  SPR  PULSE  INPUT  DELAYED 


RUN  #590  DOSE  =  5.0<M0**13 


ci  ft**  ft 

IM1UI8 


LOGCTIME  IN  NANOSECONDS) 


Figure  73*  SAP  Simulation  of  9704  Response  to  SPR  Neutron  Pulse  and  Delayed 
Electrical  Pulse.  Absence  of  Response  to  Latter  is  due  to  DAMAGE 
Degradation  Calculation  Using  741  TPHIVN  Surface  of  Figure  23, 
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SECTION  VII 

MERGING  SAP  WITH  SCEPTRE 

In  this -section,  the  procedures  are  given  by  which  the  bi variable  propagation 
program  SAP  is  used  with  the  circuit  analysis  program  SCEPTRE,  SCEPTRE  was  devel¬ 
oped  by  AFWL  under  contracts  AF29(60l)-6489,  AF29(60l)-7852,  F29601-67-C-0049, 
F29601-68-C-0117,  and  F29601-70-C-0038.  User  manuals  are  available  from  AFWL 
describing  job  deck  makeups.  Tne  version  of  SCEPTRE  which  we  used  is  an  IBM  360 
version  modified  by  University  Computing  Company  (UCC)  to  run  on  the  UNIVAC  1108, 
This  UCC  version  runs  entirely  from  drum  files  and  permits  execution  times  typi¬ 
cally  of  about  30  to  90  seconds  for  both  Phase  I  and  Phase  II  of  SCEPTRE,  for  the 
cases  described  in  the  subsections  below, 

1.  CIRCUIT  MODEL 

Because  the  surfaces  contain  the  detailed  performance  information  of  the  de¬ 
vice,  the  equivalent  circuit  or  model  required  to  couple  in  with  SCEPTRE  is 
relatively  simple,  as  shown  in  the  sketch  below. 


T1 


The  circuit  description  for  SCEPTRE  was* 

ELEMENTS 

El, 1-2  >  FV0LT2(TIME) 

Rl, 1-4  -  50.0 

Cl, 9-2  »  1  .EMO 

Tl.1-3  -2  -  MODEL  74 1A  (TEMP) 

RL,3-2  -  2.0  ' 
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FV0LT2(TIME)  is  a  function  subprogram  which  is  a  modified  version  of  VOLTIM 
and  calculates  the  voltage  forcing  function  El  at  each  time  step  as  SIHTR,  the 
transient  simulation  routine  written  during  SCEPTRE  phase  I,  calls  FV0LT2.  The 
Rl,  Cl  circuit  on  the  input  was  mandatory  simply  to  cause  SCEPTRE  to  find  time 
dependent  state  variables  in  the  simulation.  Otherwise  the  integration  routines 
in  SCEPTRE  force  a  dummy  return  on  all  but  the  initialization  pass,  and  no  action 
is  taken  on  subsequent  time  steps  by  SIMTR. 

The  model  description  for  the  741  used  vast 

MODEL  DESCRIPTION 
MODEL  ?4lA  (TEMP)  (i-O-G) 

ELEMENTS 

RI,  I-G  -  500. 

JI,  I  -  G  -  0 
RO,  0-X  -  0.1 
pl,  y-G  -  500. 

JO,  Y-G  -  F0J74l(TIME,VJIfIRI,PJl) 

BO,  X-Y  -  F0V74l(TIME,VJI,IRI,PJl) 

DEFINED  PARAMETERS 
PJ1  -  1 

The  circuit  configuration  corresponding  to  this  description  isi 


The  function  subprograms  F0J741  and  P0V741  are  small  interfacing  routines  that 
pick  up  the  input  information  from  SCEPTRE,  transfer  it  to  SAP  by  a  call  to  MAIN2, 
and  are  given  back  the  output  voltage  and  current  to  pass  back  to  SIMTR  in  SCEPTRE. 
The  listings  of  these  routines  are  given  in  Figure  74.  The  purpose  of  the  defined 
parameter  in  the  model  PJ1 ,  is  simply  to  identify  a  block  number  which  SAP  can  use 
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9  ElT  F0V741«1, 720130.  62163  »  1 


000001 

FUNCTION  F0V741 (T IME ,VIN»CIN, JTAG) 

000002 

COMMON/VCOUT/VOUT, COUT 

000003 

JBLOCK  =  JTAG 

000004 

CALL  MAIN? (V IN. Ft n,VOUTPT,COUTPT* JBLOCK »TIME) 

OOOOOS 

VOUT  =  VOUTP1 

000006 

COUT  =  COUTP 

000007 

FOV741  =  VOUT 

000008 

RETURN 

000009 

END 

?•  ELT  F0J741. 1,720130,  6216*  .  1 


C00001 

000002 

000003 

000004 

OOOOOS 


FUNCTION  F0J741 (TIME  *VIN*CIN* JBLOCK) 

COMMON/VCOUT/VOUT ,COUT 

F0J741  =  COUT 

RETURN 

END 


Figure  74,  F  0  V  7  4  1  and  F  0  J  7  4  1  Listings 
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to  tag  the  741  block.  The  resistance  RL  in  parallel  with  JO  is  needed  to  make 
SCEPTRE  include  the  voltage  generator  EO  in  calculating  the  output,  otherwise 
SCEPTRE  Phase  One  deletes  BO  in  writing  the  circuit  equations. 

2.  PROGRAM  MAKE-UP  USED  WITH  SCEPTRE 

Because  of  the  limitations  of  the  core  size  available  on  the  UNIVAC  1108 
(65c  decimal)  when  SCEPTRE  Phase  Two  is  resident,  most  of  the  unnecessary  pro¬ 
grams  were  deleted.  These  were  primarily  the  many  plot  packages  and  subroutines. 

Some  functions  are  performed  by  SCEPTRE  that  were  done  by  routines  in  SAP,  and  so 
the  latter  were  redundant.  An  example  of  the  latter  is  the  iteration  routine 
DRIVER,  since  SCEPTRE  already  contains  iteration  packages.  Further,  the  time  step 
itself  is  generated  as  a  normal  process  in  SCEPTRE  hence  those  sections  of  VOLTIM 
which  generated  the  time  stepping  could  be  deleted. 

The  additional  routines  which  were  written  to  work  with  SCEPTRE  aret 
MAIN2  -  cut  version  of  MAIN 

FV0LT2  -  cut  version  of  VOLTIM,  creates  voltage  waveform 
RADGN2  -  RADGEN  altered  for  call  compatability  as  well  as  the  the 
interface  function  subprograms  F0J?4l  and  F0V?4l  given  earlier.  By  deleting  the 
plot  routines,  and  cutting  back  the  size  of  the  XYZ  common  block  which  contains 
the  surface  files,  all  of  the  program  code  fit  into  about  7K  decimal,  and  all  of 
the  data  into  about  10K  decimal.  This  was  small  enough  to  be  accomodated  in  core 
together  with  the  UCC  new  version  of  SCEPTRE  during  Phase  Two.  The  listings  of 
these  new  routines,  MAIN2,  FV0LT2  and  RADGN2,  are  given  in  Figures  75i  76,  and  77. 

Initially  we  attempted  to  adapt  the  United  Aircraft  version  of  SCEPTRE  provided 
by  AFWL.  However  the  executive  EXEC  II  on  the  Palo  Alto  Uni vac  1108  of  UCC  differed 
sufficiently  to  render  the  UA  system  routines  inoperative.  Similar  problems  arose 
with  the  tape  obtained  from  Lockheed  Missile  and  Space  Company  (LMSC)  since  the 
SLEUTH  routines  were  available  only  in  binary  rather  than  symbolic  form.  Thus  the 
approach  we  followed  was  to  try  and  work  with  the  UCC  drum  version  of  SCEPTRE 
despite  the  fact  that  UCC  in  Dallas  refused  to  release  the  symbolics  to  the  local 
UCC  staff  in  Palo  Alto.  Thus  when  drum  assignments  had  to  be  set  to  match  our  drum 
file  designations  for  the  surfaces,  many  phone  calls  were  necessary  between  Palo  Alto 
and  Dallas  to  accomplish  the  most  elementary  tasks.  Eventually  the  necessary 
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a  ELT  FV0LT2.1 .720302.  50Vi« 


.  1 


000001 
000002 
000003 
00000*. 
000005 
000006 
000007 
00000* 
000009 
000010 
OOCOl 1 
00001? 
COOOl'J 
000016 
000015 
000016 
000017 
0000 1 6 
oooori 

0C00?0 

0000?1 

0000?? 

000023 

000026 

000025 

000026 

009027 

oooo?* 
0000?-} 
000030 
000031 
O&GO  32 
C00033 

000036 
000035 
000036 
000037 
000035 
000030 
000C60 
000061 
00006? 
000063 
000066 
000 ^66 
000066 
000067 
0C006H 

CC0P69 

000050 

000051 

00005? 

000033 

*>00056 

000055 

OOO0S6 

000057 

00005H 


function  fvoi.tr 't!n> 

INf  LUUf  TIME. LIST 
■>If*F»|5iO  >  V(l?)  .  T  (1?) 

IUmfnMOm  TUN1T(3),  1 SCALE  (3) 

IMTFGFP  0OTI0M.0PTLlfi.0PTL0G.TUNI T.UNIT 
10GIFM  T'ilTAt 
DOT/*  |MU|./.T»Hf ./ 

OAT  6  IC.TT/5.A/ 

DATA  *jAN6Ff /ghMAnO  S/.MIC5EC/6MM1CR0S/.MILSEC/6HMH.L1S/ 

DATA  OPTl  DG/6WI.0G  /.0?TLIM/6HLINEAR/ 

IF  (.NOT. If  I  T  A|.  1  GO  TO  50 
TNITal  =  .FALSE. 

I  lo  =  1 
MODIJl.O  =  f* 

OlfTIM  =  -.001 
OLOLOG  =  0.0 
TOADLG  =0.0 
READ  (IN. 1 0) IOPT 
10  rARMATlI?) 

wPITF  (IT, 17)| OR T 

17  FORMAT (2^POFOOCI’JG  FUNCTION  OPTION  =*131 
GO  TO  ( 1«. 30) .  TOOT 
lfi  READ  (IN.l?) A.FRFO 
1?  FORMAT (?(E)S.6,SX) ) 

WR11F  UT.191A.FRE0 

19  FORMAT (3RnA=El5.«,5X.6H  FREQ=.E1S.8> 

Omfga  =  ?.0*3.161592656*FR£CI 
GO  TO  60 

30  °EAD<Ils«lo)  NSTKPS 
vritfut.hi  nstfrs 

31  FORMAT (///-9H  a  PIECEWISE  LINEAR  FORCE  FUNCTION  IS  USED  WITH  THE  NU 

1MREP  OF  5TFRS  =  ,13./  31H  FUNCTION  TIME  JNIT  ) 

DO  36  1=1.  NSTEP5 

READ ( IT. 36 )  V ( I ) . T ( I ) ,  UNIT 
WRITE (IT. 35)  V ( I ) »T  < 1 ) *  UNIT 
36  FOkMat (2rl?.*,Aft) 

35  FORMAT (2X,?6)?. 6, Aft) 

IF(DM1T.‘-.).HAMSEC)  TSC  =  1.0 
IF  (UNIT .fij.MIFSEC)  TSC  =  1.0E*3 
IF  (UNIT •  c>'.MIt.SF01  TSC  =  I.0E*& 

IF<IJNIT..-r  .NANSFC.  AND.  UNIT.  NE.MICSEC.  AND.  UNIT.  NF.  Ml  LSEC) 

1  WRITFUT.33) 

3ft  TUI  =  T  ( I )  *  TSC 

3fl  FORMAT (5x,  50H  The  UNIT  MULTIPLIER  IS  NOT  CORRECT  FOR  THE  TIME.  ) 
NSTFR1  =  (.STEPS  -  1 

60  READ ( 1 w.6i )  1ST  ART .TU'UT (11*  ISTOP.  TIJMITI?),  IPaDTM,  TUNIT(3). 
1RMAX,  OPTION 

61  FORMAT (5x,3(IG. 1X.A6.2X) « 5X . I5.5X.A6) 

WRITE (11.61)ISTART,rUNIT<l>.  ISTOP,  IUNIT(2),  IRADTM,  TUNIT (3)  , 
1MMAX,  OPTION 
DO  6?  w  =  1,3 

IF  (TIlMT/K)  .FO.  NANSFC)  TSCALE(K)  =  1.0 

IF  (TUflKK)  ,FO.  MICSLC)  T  SCALE  (A )  =  1.0-0 

IF  (TIIMITik)  ,E'>.  mjlSFC)  TSCALECO  =  U0F.6 

IF  CTU'JI T ( K ) .Mf.N4N5EC.ANO.IUNl 1 (K ) .NE.MICSEC.ANO. I UN IT (K) .NE.MILSf 
1C)  NRITF.MT.3H) 

62  CONTINUE 


Figure  75*.  F  V  0  L  T  2  Listing 
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000059 

TSTapt  =  15TART  •  TSCalE(I) 

0000*0 

TSTART  =  amax] (T5TART.) .) 

0000*1 

TSTOP  =  i*rnp  *  TSCALF(?> 

0000*? 

paOHM  =  IPADTM  *  TSCALE  (3) 

0000*3 

IF  (OPTION  .EO.  OPTLIM)  MOOE  =  1 

0000*4 

IF  (OPT  I'll-  .ft).  OPTLOG)  MODE  =  ? 

000065 

WRITE  (IT. <4*1  OPTION 

0000*6 

IF  (OPT  I  O'l.Nf  .OPT|.  IN.fi»iD.OPT  I  ON.  NE.  OPT  LOG)  STOP 

0000*7 

4*  FOWmaT  ( )fi»  .  A*.?1m  TIME  STEPS  Ak£  USED.  t  ) 

000068 

GO  TO  (47,48).  MODE 

0000*9 

4V  A 1  =  TSTAUT 

000070 

A?  =  (TSTOP  -  TST APT)  /  (MMAX  -  1> 

000071 

GO  TO  80 

00007? 

4ft  A 1  =  AL  0*1 0 ( T5T  APT) 

000073 

A?  =  (ALOGKMTSTOP/TSTART) )/(MMAX  -  1) 

000074 

c 

000076 

c 

ENTRY  POt"T  ON  ALL  BUT  FIRST  CARD  BEAD  OPERATION 

00007* 

c 

MODE  =  1  CORRESPONDS  TO  A  LINEAR  T I MF  BASE. 

000077 

c 

MOOF  =  ?  COPPFSPONOS  TO  LOGARITHMIC  TIME  BASE. 

00007* 

c 

000079 

50  TT  =  TIN 

0000*0 

lF(.NOT. (TT.GT.OLDTIM) )  RETURN 

000081 

M  =  M  ♦  1 

0000*? 

mPRImp  =  m  -  MODULO  «  lmax 

0000*3 

IF (mrrimp .FO.Lmax )  MOOULO  =  MODULO  ♦  1 

000084 

T!mF(MPRT»£ . 1)  =  TT 

0000*5 

TIME  (mpr !*.£ ,  ?)  =  ALOG1 0  ( AMAX 1  ( TT .  1 .  )  > 

00008* 

OT  =  T I Mf ( NPP I ME , 1 1  -  OLOTIm 

000087 

OLOGT  =  T I ME.  ( mPw i ME , ?)  -  OLDLOG 

000088 

OLDTIm  =  TIMF(MPRIME,1) 

0000«9 

OLOLOG  =  TIMf (MPojme,?) 

000090 

OTL (MPRImc , i )  =  nT 

000091 

OTI.  (MPP  Imp  .?)  =  OLOGT 

00009? 

TPAO  =  T  1  ( MPR I m£ ,  i )  _  RAOTIM 

000093 

TPADIG  =  AL.OG1  0  (  A**ax  1  ( TBA0 « 1  •  )  ) 

000094 

I M I  =  MpPlMf 

000095 

IF(nontiLO.GT.o)  IHI  =  lmax 

00009* 

0(.  5*  T  =  )  .  IHI 

000097 

TL(I.I)  =  TIMP(PPRlMt.l)  -  TIME (1,1) 

000096 

56  TL ( I •?)  s  TIME (mprime,?!  -  TIME ( 1 *2) 

000099 

c 

000100 

SR  GO  TO (59.60) t  I OPT 

000101 

59  EVOLTP  =  A*  SIN (OMEGA *T IM£ (MPRIME *  1 ) ) 

00010? 

RETURN 

000103 

60  DO  70  I  =  II.O,  N5Tt.Pl 

000104 

IF ( (TIME ( vPR i me, 1 ) .GT ,T ( 1 1 .Oh. . NOT. T IMF (MORIME, 1 ) 

000105 

1  TIME (MPP  JMf  .  1 ) .LT .  T  ( I  ♦  1 ) )  GO  TC  BO 

00010* 

70  CONTINUE 

000107 

1  =  1-1 

000l0a 

»0  ILO  =  I 

0  0  0  1 0  9 

EVOLT  ?  = ( 9 ( I ♦ 1 ) -VM  I ) ) * ( II  ME (MPRIME  * l > -T ( I ) ) / ( T (I ♦ ! 

000110 

?00  RETURN 

00011  1 

END 

) ) .and. 


)  ♦  V< I) 


Figure  75b.  FV0LT2  Listing  (cont.) 


OOOOOl 

ooooo? 
OOP 00 3 
OOOOOA 

0  0  o  0  0  ■■ 
oooooo 

DOO^O  7 

ooocoo 
00000  • 
OCC010 
00001  1 
ooooi? 

000013 
COOOl*. 
oooois 
000010 
0  0  n  0  1  7 
OOOOH 
0000 1 9 
000020 
000021 
0000?? 
000023 
000020 
000025 
000026 
000027 
000021 
lOOO?0 
0  0  0  0  3  0 
000031 
000032 
0  0  r'  0  3 1 
00003-4 
000035 
000036 
000037 
00003R 
G0003R 
OOOOAfi 
00004.1 
00004.? 
000043 
00004.4. 
00004.5 
00004.6 
00  704.7 
00004.  ft 
00004,9 
00r 050 
000051 
00005? 
6010S3 
OCOO^-A 
GOO'S} 
000066 
cocos? 
000061 


Fir  MAIN?,  1 ,7?0?)0*  0374-  ,  1 

SUHP0U1 IMF  MA in? ( V INPUT ,C INPUT » YOU I PT * COUTPT , JBLOCK » T ) 

FNCLUOF  6aP, l (ST 
tNCLinr  1  ,1  I  6. T 

INCIUD'-  xv/, LIST 
common  /  i-FUir,  /  !Of»UG 
LPOic-M  * '  fi11. 

01  1  Of'  MN(IA)  «NOUI  (IX)  .LhLUCK  (  I  X  .  1  X )  ,  I  SURF  (NSUrF)  »LT  T  M£  <  2> 

1 ,  JPA9AL  |[A) .FACT  OP ( I x » ,C(iOUf (16) «  VNOUT (IX) ,CN1 N ( I  X ) , VMIN ( I  X ) 

2,l.Mrx  { |  xi 

1  OSICAI.  WADX,lP/iON«!MITAL.ISrM,lSYML 
C  l$Y"  =  .  Ttijf .  (“PLUS  SURFACE  IS  SYmmfTRIC  V*  1 TH  RESPECT  TO  Y  =  0. 

C  =  MAXIMUM  NUmRKK  of  i If  pAl  IONS. 

0  A I  A  Fpsi  U?/.r.l/.FPSLM3/1.0E-'l/.IN/5/.lT/6/,KMAX/20/ 

(1ATA  |  t ; to/  1  o/ ,  VTEST/.05/.  C1EST/.05/.  M/0/ 

DATA  IM  ( AL/. T»UF . / ,  1 OF RUG/  •  T RUE,  / ,IXUASK/0?«IYPASE/0/»IZ3ASE/0/ 
DATA  Mr.M4.Mr/pwMD«OPE/.  TOLO/-.001/ 

DATA  I.TI-r  (11/0/.  FACTOR  ( l )  /0»/ 

DATA  T  |f.  4/ 1  .E-20/ ,  SMALL/ 1  .  E-l 2/ »  SAP2/AF1SAP2/,  STAR/AH****/ 

C 

c 

c 

IF  (  ,'|0T.  | v- 1  T«u*  60  TO  rtO 
INITAi.  =  .FALSE. 

C 

C  IF  THE  PniniNF  OAM AGt  IS  CALLED  UPON.  THF  SURFACE  ZVN7A1  . 

C  must  Of  PFAD  IN  PY  MAIN.  THIS  CORRESPONDS  TO  LSUPF  =  5. 

C 

WR1TF (!T, | )  ST AP,  SAP?, STAR, SAP2, STAR. SAP?, Si AR.SAP2, STAR. SAP? .STAR 
1  F DPWAT  ( 1  m )  .  //,  10/.5<AA.Ax,AA,AX) ,A4  //) 

PEAOdM,?)  (ISU-'F  (L)  ,(.=  |  «NSURf  1 
?  F0PMAT(1?I5) 

I’RITf  (  JT,  U  (L.  I  SURF  (L)  «L=  1  .NSURF ) 

3  FORMAT ( /  ?X  « 3 ( 3X ,  6HISORF ( » I?»AH)  =  ,Ii>  /> 

C 

CALLING  INPUT  DATA  FROM  SUBROUTINE  06TA. 

CALL  DATA 
C 

CALLING  SURFACF  INFORMATION  FROM  DRUM  FILES, 

DO  n  1=1,  NSURF 
IF (1SUPF (,  j .ft.o)  GO  TO  13 
C  INPUT  =1  ♦  17 

INPUT  =  IN 

RL AO (INPUT. A)  XI  0«XHl .YLO.YHI .IXDIMN, I YDIMN.LL.ISYMU, (SCALE (L*J> 

1  •  1= 1 , 3) 

4*  F'OPM.'T  (4,F>.A,3I',«L6,3F10. 5) 
txrnM<Li  =  ixojmu 
I Y  o  I  *.  ( L  1  =  Ir-UMu 
isyw(|)  =  JSyml 
XLOw(l)  =  .99P9POS  *  XLO 
YLOW(l.)  =  .99R99Q1  ®  YLO 
XH|r,H((  )  =•  l.O0n0P0?  *  XMl 
YHIGH(L)  r  1 .0!l''0')0?  *  Yh  I 
xohu  =  (X„K-H(i  )-XLOvn..»  >/(IXOIM(L)-l> 

YI't  l  T  A  =  (YH1SH(|  ) -YLO,  (I.)  )/ (  I  YOIM  (L)-J  ) 

PPITF  <!!.,.»  L.Xl  o ,  Xu  I  «YLO,YrtJ  . XOELT A .  YQFL  T  A  ,  I  XD JMN,  I YDIMN ,Lt- .  ISYML 
1 ,  (L  .  J,6C<U  F  (l  ,  l)  .  1=1  ,•»> 

6  FORMAT ( / 1 6F<  FOR  SURFACE  .12, /M,  XLO  =,G11.A,7M,  XHI  =.G11.A,7H,  YL 
10  s,gh.4,7H,  YmI  =,011.0,1  On ,  XUELTA  =  ,f.  1  1  ,  A  ,  1  OH  *  YIJFLT  A  =.G11.4* 
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000059 

2/4H  IXD1M  =,I3,9H,  IYD1M  =. 13.5m.  L  =.I?.9H,  I«;ym  a  ,L1.5X.3(8H 

000060 

3SrALF<.Il.lH,,Il,3N>  r.OlO.?)/') 

00006- 

6  FORMAT!/  IOX.RhIxBASE  = . 13 . 5X » BHI YB ASE  =  « 1 3, 5X »8HI 28 ASE  =.IS  /) 

0000‘S? 

c 

000063 

CREATING  X  AMO  Y  ARRAYS  FROM  INPUTTED  INFORMATION. 

000064 

C 

000065 

1 DONTR (L  «  1  )  =  IXOASE  ♦  1 

000066 

8  FORMAT ( /  ‘SX , 3  <  7h tPONT B(.T?,lri.,I2»3H>  =. 15. 1H.5X) /) 

000067 

00  9  1=1.  I'OJMN 

000066 

9  X  ( I  ♦  I  X *  S F  )  =  XLO  *  ( 1-1 1  *XD£LT  A 

000069 

IX8ASE  =  IX8ACE  *  IXOIMN 

000070 

JPOMR  ( L .  2)  -  IYSASE  ♦  ) 

000071 

00  1C  J  =  1 .  1 Y01MN 

000072 

10  YIJMYCACF)  =  YLO  ♦  ( J-l ) «YD£L t A 

000073 

IYHA8E  =  IYPASE  ♦  IYOIMN 

000074 

JPONTR  <L « 3)  =  I7MASE  ♦  1 

000075 

WRITfMT.  A'  (L.J.IBONTRIL.J)  »J=I,3> 

000076 

MINC  =  1XUIMN  *  IYOIMN 

00007  t 

MJNC?  =  MNC  ♦  MINC 

000078 

JrtI  =  IYOIMN  -  1 

000074 

no  1?  T  =  1.  IXOIMN 

000080 

00  12  .1  =  1.  JHt.  2 

000061 

MSI  =  I  ♦  <J-n*lXDlMN  ♦  IZBASE 

000082 

MS?  =  MSI  +  IXOIMN 

000083 

ML  1  =  mSI  ♦  MINC? 

000034 

ML?  =  MS?  ♦  MINC? 

000085 

RpeO ( INPUT .11) (Z IKK) .KK=MS1,ML1.MINC> . (Z(KKK) .XKK=MS2,ML2.MINC> 

000086 

11  FORMAT <6r 13.71 

000087 

1?  CONTINUE 

00008P 

IZBASF  =  I2BPSE  ♦  3*M I NC 

000039 

13  CONTINUE 

000090 

WRITFUT  .6)  I  xnAS-  .  1YBASF.  .IZ8ASE 

000091 

IF (I XMaSp .fiT , I XL IM.OP. ! YBASE.OT .IYLIM.OR.IZBASE.6T.IZLIM)  STOP 

000092 

C 

000093 

oam aox  =  i.n 

000094 

DAMtr.N  =  i.o 

000095 

C 

000096 

WP1TF11 T,?01 

000097 

20  FORMAT (*im  INduT  the  VALUE  OF  JMAX,  USE  FORMAT  13.  /) 

000096 

PFAO  ( !M  »  ??1  «IMAX 

C00099 

??  FORMAT ( I 3) 

000100 

WRITE  (IT,  ?41  .IMAX 

000101 

?4  format (3?«  thf  value  of  jmax  as  reao  in  is  *  13  /) 

000102 

WR1TF ( 1 T  «  80 1 

000103 

30  FORMAT ( 7ih  IMOIJI  Twf  VALUE5  IN  5EOUENCE  OF  J,  CONF IG.NIN.NOUT ,R .C 

000104 

1  L.  4I3.3F12.4  /) 

000105 

'  00  3?  1=1.  JMAX 

000106 

REAP  ( lfi»  3*)  I,  I  TABLE.  ( J.  ) )  ,NIN(  J>  ,  NOUT  ( J)  »R  ( J)  .  C  ( J  >  *FL  ( J) 

000107 

3?  WPITP (IT .341 I .  ITABLE(J.l)  ,NIN ( J) .NOUT (J) ,R(J) ,C(J) »FL(J) 

0001 08 

CALL  SfTHPI  NIN,NOUT,L8LOCK»JMAX,NMAX,JPaRAL.LMEX> 

000104 

33  CONTINUE 

000110 

34  FORMAT (413,  3F12.41 

000111 

C 

COO  1 1 2 

C 

IF  INKALi  ,NE.  1,  PRINTING  IS  SUPPRESSED.  EXCEPT  FOR  EVERY  MMOOTH 

000113 

C 

T IMF  STEP. 

00011* 

WRITF (11.41 ) 

000115 

41  FORMAT (4 1H  INPUT  the  VALUE  OF  INKALL  AND  MMOD,  ?I3.  /) 

00  0 1 1 6 

RF.AP  ( Tf'.4?>  INKALL.MMPO 

000117 

4?  FOPMAT(?13l 

000118 

V'RI  TF  ( I  T  .*4)  1NKALL.MM00 
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0001  J  ^ 

44 

FORMAT!  OH  INK ALL  =«I?«10H.  MMOD  =*1.3  /) 

OOP! >0 

C 

000121 

REAIMIn.46)  FUSION 

001*1  V 

46 

FOP" A T ( F 10.61 

0001?! 

WPITFIIT./.®)  *  PSl  ON 

0001,''. 

40 

FORMAT (3’m  Ipp  ITERATION  C91  rt.KIfl,FPSLON  =.  G14.0  /) 

000 1?S 

C 

000 1?6 

KOOSS  =  1 

OOP  1 37 

75 

CALL  PAOG*,3(O.PH|  .I«AOX,I«40N) 

rcoi?» 

C 

000  K'{- 

C 

c 

NORMAL  ENTRY  ON  ALL  BUT  INITIAL  PASS. 

1  00  1  *') 
ooc ;  <i 

L 

SO 

CONTI  Mil 

0001  )? 

Ml  R‘J'J  =  **/MMOn 

opom 

mOOm  =  mtwU.N**i.mOO/M 

COCK!'. 

J  =  J-*l  OC« 

opons 

N  =  N1N(  1) 

OOP  136 

CALL  RA0r.N3(l.PMi ,  IP  ADX.IRADN) 

0001  17 

c 

0  0  0  1  ',! 

IE URAOX.AND.phI (l) .GT.O.l  PHUL  =  ALOG1  0  (PHI  ( 1 1  ) 

0  0  0  !  ■'  1 

If  (IDAON.ANO.PHU3)  .GT.O.)  PriluL  =  ALOG1 0 (PhI ( 2> > 

00c 100 

c 

OOP  141 

VNIN(N)  =  VINPUT 

0001'.? 

CNIN(N)  =  CINPUT 

00014? 

IF  ( ARS  (VMTN  (N)  )  .Li.  T  INY)  VNIMN)  =  SMALL 

OOP  1-.4 

IF  ( APS  (C'N  IN  (N)  >  .1.  T  .T1MY)  CNIN(N)  =  SMALL 

000145 

CIM(J.l)  =  CNJN  (All 

00O14O 

VJN(J.l)  =  VNTN(N) 

000147 

1 1 LRAT  =  1 

00C14  < 

ITPSAV  =  TTFRaT 

( 00 140 

Nllrp  =  n 

0001^0 

c 

nu'  lr») 

307 

NITER  =  NITER  ♦  1 

0001 s/ 

ITERaT  =  iTRSaV  *  NITER 

000153 

309 

1/01.0  =  vniiT  <  J.  1 1 

000]<>4 

COLO  =  CONT(J.l) 

0001  ".b 

IF<ARS(V'*|.0>  .I.T.TINY)  volo  =  small 

000  iso 

IF  (ARSd/'M  01.LT. TINY)  V0Lf>  =  small 

ooor.7 

310 

VOUT(J.l)  =  VIN(J.l)  »  FE(J) 

0001 3') 

COUT  (Ml  =  CINU,  ]  )  «  FI  (J) 

0001 3q 

23* 

VTST  =  AMC  t  1.0-  VOUT  C.Ml/VOLD  ) 

0001-  0 

CTST  =  (  1.0  -  COUT  (.Ml /COLD  > 

0  0  v‘i  i  1 

IF ( .NOT. (ARSIVOLO) .GT.O. 1 )  VTST  =  0. 

00-1' ^ 

IF1.NOT.  (A.BS(COLO)  .GT.O.))  CTSI  =  0. 

000 1 6  0 

236 

IF  ( (VTST  .GT.  VTFST  .OR.  CIST  .GT.  CTEST)  .AND.  NITER. LE.LIMITQ 

000)64 

1)  GO  10  ?n! 

0001' 

I TE°AT  =  1TSSAV 

000140 

330 

IE  (  JTlPiT  .GT.  1  )  50  TO  231 

OOP  107 

IFdR.inX)  VOUT  (.1.3)  =  PHI  XL  *  EEPHl(J.l) 

"00  l  *|M 

IF  (  IRat.Ii)  vOUT  ( J. 31  =  PHINL  *  FEPHl  (J*21 

o  0  0 1  *  0 

* 

IF  URM'A  »  COOT  ( J.  3)  =  PHIXL  *  FIPHIlJ.U 

0001 70 

IFURAON)  COUT  ( J.  3)  =  PHINL  *  FIPHI  (J*2) 

0001/1 

lE(TRAr>Xl  OAMAGX  =  OAMAGEIJ.U 

floor/? 

IF  ( IP  AON )  0  AMftijN  =  DAMAGE  (J, ?) 

005  1  7  ) 

OAMAGT  "  f'AMA.GX  0  OAM aGN 

500174 

IF  (  .NOI  .  ( IPAOX.OR. IRAON) )  GO  10  231 

0001  76 

VOUTtJ.l)  =  VnUT(J.)  MOAI1AGT  ♦  VOUT  (J. 3) 

000176 

COUTtJ.l)  =  COUr(J,l)«DAMAGT  ♦  COUT ( J*3> 

000177 

?31 

CONTINUE 

0001  7') 

333 

VNOUT(N)  =  VOJT(J.t) 

Figure  76c.  M  A  I  N  2  Listing  (cont.) 
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000179 

000180 

000181 

000182 

000183 

000184 

000185 

000186 

000187 

000188 

000189 

000190 

O00191 

000192 

000193 

000194 

000195 

000196 

000197 

000193 

000199 

000200 

000201 

000202 

000203 

000204 

000205 

000206 

000207 

000203 

000209 

000210 

000211 


CNOUT(N)  =  CnuT(J.l) 

VOUTPT  =  VOUT  (JO) 
f.OUTPT  =  fOiiTlJ.il 

440  IF<. NOT. (INKAlL.EO.l. 0R.M00M.EU.il)  GO  TO  450 
9WITP(IT,44l) 

441  FORMAT!//  123h  J  VIN(J>  ClN<J)  VOUHJ.ll  COUTtJ.l 

1)  VOIFF  COtFF  VOUT ( J.2)  COUTtJ.2)  VOUTU.3)  C 
20UT ( J.3)  ) 

JLO  =  J 
JMI  =  j 

444  DO  445  J  =  JLO,  JH! 

VOIFF  =  '/IN ( J.  1 ) -  VOUT  ( J,  1 ) 

CD1FF  =  C1N ( J. 1 ) -COUT ( J. } > 

445  WPITFMT.14M  J.VIM(J,1 1  .CIN(J.l)  .VOUT  (J.l)  .COUT  U.l)  .VDIFF.C01FF 
1  .VOUT (J.2) .COliT  <  J.2) .VOUT (J.3> ,COUT(J.3> 

446  FORMAT  <13.10(1/, Gll.3)) 

450  DO  49C  J  =  JLO,  JHI 

DO  460  JIG  =  2,  JT 

JOG  =  JT  -  JIG  ♦  2 
VlN(J.JOo)  =  V1N<J,J0G-1> 

CIN(J.JOG)  =  ClfKJ, JOG-1) 

VINTfiLtJ.JOG)  =  VJNTGLIJ, JOG-1) 

CINTOL ( J. JOG)  =  CINTGUJ,  JOG-1) 

460  CONTINUE 

00  470  JIG  =  2.  JO 

JOG  =  JO  -  JIG  ♦  2 
VIMOT1 (J.JOG)  =  V1WDT1 (J. JOG-1) 

CINDTI  <  J.  JOG)  =  CINDTUJ,  JOG-1) 

470  CONTINUE 
480  CONTINUE 
PFTUPN 
END 
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100001 
'00002 
',0000  3 
COCOO* 
*00096 

ooooo*' 
COOOO  •’ 

oooooo 
00000-) 
O0001O 
OOOOl  1 
000012 
000013 
00001* 
000015 

00  00  1  c- 

000017 
00001* 
00001* 
000020 
0C0021 
03002? 
000023 
00002* 
000025 
00002*3 
0000?7 
00002* 
0C002O 
000030 
000031 
00003? 
300033 
000030 
000035 
000036 
000037 
000033 
000030 
0000*0 
0000*1 
0000*2 
0000*3 
0000** 
0000*5 
0000*6 
0000*7 
0000** 
0000** 
000050 
000061 
000052 
000053 
'0036* 
000055 
CO  0.16* 
000067 
000".6>* 


•  1 

SUBROUTINE  RAOGN?  (N.PhI.IRADX.IRADN) 

I  MCI.  UOF  TT^f.Ll5T 

MANSION  RHOl  ;rs>  ,RH0?(?5) ,T1  (25)  »T?(25>  .PHI  <?) 

DIMENSION  I  Type  1 (2) , i TYPE 2 ( 2) *NAM£1 (2) .NAME? < 2) ♦ IWEIBL (2) , 
llGAUSSl?)  , I P I FCfc (?)  ,1XRAY<2> ,Ntur&N(?> 

LOGIf/AI  IP-V)<\  .  I OADN 1  « I  P  Af)X2»  IRA0N2.  IPAOX  ,  I WAQN.KONVO!. 

OATA  TM.tf/S.*/ 

DATA  I*lr:i“L(l)/6«KElHIL/»lW£I8L(2)/6HL  /  * IGAUSS  ( 1 )  /6HGAUSS  I/, 

1  IG*II5S(2)/6H*M  /.IXRAY(l) /6HXPA Y  /  ,  I XR AY < 2) /6H  /, 

2  NfilTRNd  )/*MNrUTRn/.NEUrRN(2)/6HW  /*  IPIECE  ( 1 )  /6HPIECEW/  , 

3  iPfPCEipj/GHlSE  /.IBLANK/6H  / 

DATA  IFXR/RHFXr  /, ISRR/6H5RW  / 

C 

c 

C  THE  01 ST Pi RUT  1 0N  FORCING  FUNCTIONS  ARE  CALCULATED  BY  USING  THE 
C  FOLLOW  I  Hr,  c.TaiFMENT  FUNCTIONS. 

PWEtHLdYMF  .ALPHA. BETA, GAMMA)  =  (BETA  *  ALPHA  **  (-BETA)  *  (TYME  - 
1  GAMMA)  <*»  (  PFTa-1 ) ) **  (  (  (T  YMt -GAMMA)  2AL  PH  A)  **  BETA) 

PG^USS (TY..!(f . A.T AU.SIC.MA)  =  ( A/ (SIGMA  *  (2*3.1M5B>  **  0.5))** 

1  '(  (  TYMc  -  Tau)  *«  ?  /  (2  «  SIGMA  **  ?))• 

PICW1S  (RT.RIP1.T1.IIP1.PHIMAX.TYME)  =  ( (RIP1  -  Rl)  *  (TYME  -  TI) 

1  /<  TIPI  -  TI  )  ♦  PI)  *  PHIMAX 

C 

C  OATA  ARE  RE  AO  WHEN  N  =  0  . 

C 

IF  <N  -  1)  5,  100.  200 
C  INITIAL  (ZAT  IH.N 

5  IRAOxi  -  .FALSE. 

(WAONl  =  .FALSE. 

ISAOX?  =  .FALSE. 

I°ADN2  =  .FALSE. 

IRaOX  s  *LSt . 

IPAON  =  .RALSE. 

KONVOL(l)  =  . T  RUF . 

KONVOL (?)  =  .TRUE. 

RADT1M  =  (,.0 
11.0  =  1 
KOUNT 1  =  * 

KOUNT?  =  -1 
NUMBER  a  [. 

c 

RE AO  UN. 10)  ITYRF1 (1) , 1  TYPE  1 (2) .NAME  1 ( 1 ) .NAME  1  (?) .B1.92.B3 
10  FORMAT  (*a6.6*,3FJ0.5) 

IF  (  NAMPi  (1)  .FO.  1FXP  .OR.NAMEUD.EO.ISpR)  RADTIM  =  B2 
IF  (PAOTIM  .GT.  0.0)  RADTLG  =  ALOGI 0 (PADTIM) 

IF(ITYRE) (1) .NF.l BLANK. AND. NAME) (1 ) .NE. IFXR, ANO.NAME1 ( 1 > .ME. ISPR) 

1  NUMBER  =  number  ♦  j 
IF  (NAMED))  ,NE.  IPIECEUD  GO  10  35 
NSTEPS  =  *1 
WRllR  (IT. 15)  NSTFPS 
15  FORMAT  (BhmSTcPS  =  ,13) 

00  ?S  1=1.  NSTFPS 
RE  AO ( I n , ?n )  PhOI (I)  ,T1  (I) 

20  FORMAT  (?=10.S) 

25  WRITE ( 1 1 • 30)  I .RMOl (1) tl.TI (D 

.30  FORMAT!  Rmrhoi  i  .I3.5H  1  =  »Gl 2 .5»5x.*HT  1  (  »I3»5H  )  =  .G12.5) 

N5TFP1  -  "STEPS  -  3 

35  PFADUMUO)  1TYPF2U)  ,ITYPE2(2)  .NAHE2 ( 1 )  .NAME2 (?)  »CI*C2,C3 
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000059 

000060 

000061 

00006? 

000063 

000064 

000065 

000066 

000067 

000063 

00006-7 

000070 

000071 

00007? 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

0000P0 

000081 

000082 

000083 

000064 

00004)5 

000086 

000087 

000088 

000039 

000090 

000091 

000092 

000093 

000094 

000095 

000096 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000108 

000109 

000110 

000111 

000112 

000113 

ooom 

00011b 

000116 

000117 

000118 


IF  t  N1MC>|1),F0.  JFXP  .0R.NAME2(1>.F0,,ISPR>  RAOTIM  =  C2 
IF  ( 1TYPF.?  ( 1 1  .ME  •  T  BLANK  .  AND.  I  TYRE  1  ( 1)  .NF  .  1TYPE?  (1  >  .  ANU.NAME2  ( 1 ) 
l.NE.IFXR.AN0.N4M£2(l> .nf.ISPR)  NUMBFP  =  NUMHF.P  ♦  1 
IF (NAMF?(  1 )  .NE.  lt>IECE(l)l  60  TO  60 
•"STFPS  =  o 
WRITF  (IT, 15)  NSTFPS 
00  «0  1=1,  NSTFPS 

PEACH  IN, ’0)  RMO? ( 1 ) ♦  T2CI) 

40  WRITE(!T,80)  J,  »h02(I),  l*  T2(|) 

NSTFP2  =  MSTFPS  -  l 

60  X>RJTF(IT.65)  lTYPFin>,lTYPEl(2),NAMElCl),NAMEl<2),8t,82.B3 
WRITF (IT, 65)  ITYPF2CI) , 1TYPE2C2) .NAME? ( 1 ) .NAME? ( 2) ,C1,C2,C3 
65  FORMAT (1PH  PAOJATION  TYPE  =  *  2A6t  5X,  15HDISTRIBUTI0N  = 

1  2A6  /  5X 

2  32HTHF  3  RESPECTIVE  PARAMETERS  ARE  ,3(4X. 610.5) ) 

C 

C 

90  IF  (ITYPFK1)  .EO.  IXPAYdl)  IRADX1  =  .TRUE. 

IF  UTYPFKl)  .FO.NEUTRM(D)  IPAUN1  =  .TPUF. 

IF  (ITYPFP(l)  .Eo.  IaRAY(1)>  1PADX2  =  .TRUE. 

IF  (TTYPF?(l)  .FO.NEUTRN ( l ) )  IKADN2  =  .TRUE. 

IF  (IPAOX1  .  OP.  IRA0X2)  IPAOX  =  .TRUE. 

IF  (IRAOMl  .  OR.  IRAOM2)  JRADN  =  .TRUE. 

C 

C  THE  MEANING  OF  THE  SUBSCRIPTS  ON  PHI  AND  KONVOL  A&E  AS  FOLLOW 
C  1  =  X-RAY  IRRADIATION 

C  2  =  NEUTRON  IRPAOIATION 

C 

IF  ( (NAMF 1(1)  .EO.  IF XP  .AND.  ITYPE2T1)  .EO.  IXRaY(1>)  .OR. 

1  (NAMF? < 1 )  .EO.  IFYR  .AND.  I TYPE 1 (1 )  .FG.  IXRAY(1>>  .OR. 

2  (NAME  1(1)  .FO.  ISPR  .AND.  HYPE?!!)  .EO.  NEUTHN (11)  .OR. 

3  (NAMF? ( 1 )  .EO.  ISPR  .AND.  ITYPEKll  .EQ.  NEUTRN(1))>60  TO  900 

IF(NAMFin).EO.!FXP.0R.NAME2(l>.E0.IFXR)  KONVOLI  1>  =  .FALSE. 
1F(NAMF1 (1) .£«. ISPR. OR. NAME2C11.E0. ISPR)  <ONVOL(?)  =  .FALSE. 

RETUPtl 

C  WHFN  N  *  l,  r.lFFEPENT  FORCING  FUNCTIONS  ARE  CALCULATED  AND  RETURN 
C  THE  RESPECT I VF  RESULTS  TO  THE  CALLING  PROGRAM. 

100  NN  =  N 

TIM  =  TIMF(MPPIMF,d 
K=1 

IF  (IPAOX l )  GO  TO  HO 
IF  (.NOT.TRAONl)  GO  TO  150 
K=? 

110  Ir  (NAMFKl)  .EO.  IWEiBLd))  Phi  (k)  =  PWEIBLUIM  ♦B1»B?.B3> 

IF  TNAMEX1)  .EO.  IGAIlSSd))  PHI  (K>  =  PGAiJSSdIM  , 81,82. B3) 
IF(NAMFMI)  .EG.  1FXP.UP.NAMEIC1)  .EO.ISPR)  PHI(K)  =  Bl 
IF  (NAME1  ( 1 )  ,NE.  IPIECECD)  GO  TO  150 
00  125  1  =  ILO.NSTEP1 

IF  ( (TIM.r.T.Tl  ( I )  .OR..NOT.TIM.LT . T 1  ( I ) )  .  AND.TIM.LT.T1  C I ♦  1  >  > GO  T0130 
125  CONTINUE 
1  =  1-1 
130  ILO  *  I 

IP1  =  I  ♦  1 

PMI(K)  =  PICWTS  (  RH01(I>,RH01{IP11»T1(1),T1(IP1)*B2»TIM) 

150  L  =  1 

DELTA  =  ".0 
IF  (IPAOX?)  r>0  TO  175 
IF  ( .NOT . I PAON2)  RETURN 
L  =  ? 

175  IF(L.EO.K)  OELTA  =  1.0 


Figure  77b*  R  A  D  G  N  2  Listing  (cont*) 
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COO  1  1  9 

IF  ( MAVr "  ( 1 )  .ea.  IWEIHLOl)  PHI  (U  =  MWFIfiUTIM  .C1.C2.C3) 

000120 

1  ♦  'VLTA  «  PHI(«, 

000)21 

IF  (MAmF 2(1)  .FO.  IGAIISS(I))  PHI  (L >  =  PGAIJSSITIM  .C1.C2.C3> 

000122 

1  ♦  OKI f A  *  P»; (K) 

0001 23 

IFIHAMf^n  J.FO.IFX9.l)P.H6HF2{)).h0.1$P»)  PHI(L)  =C1 

000 12<* 

IF  fMArf»(l>  ,.,f  .  IPIFCF(l))  OO  TO  200 

000  1  2‘5 

rn  ICO  1  =  ILO.NSTEh? 

000  t  ?<s 

1F(  (Ui-'.fT.t?(I>  .0P..N0T.TIM.LI.T2(I>  ) . AND. T IM.LT. T2 ( I ♦ 1 >  )  GO  TO  190 

10012? 

1  HP 

C<ViT  IMlt 

00012* 

1  =  1-1 

000129 

190 

ILO  =  [ 

000130 

I°1  =  I  ♦  1 

000131 

PhKU  =  ^ICWIS  (  9H0?(I).PH02(IP1).T?(1). 12(101). C2. TIM) 

000132 

1  *  OfLT A  *  PHI (K) 

000133 

?nn 

HKTUPfl 

00013O 

900 

*»1TF  (IT. 910) 

0001  3-i 

910 

FORMAT (S^h  TEOMI1ATF0  BY  RADGN2  DUE  TO  INCONSISTENT  DATA  CARDS.) 

000136 

STOP 

0001 37 

END 

Figure  77c.  R  A  D  G  N  2  Listing  (cont.) 


modifications  were  achieved  with  the  results  which  will  be  given  in  a  later  section. 

The  loader  or  allocator  on  the  Univac  1108  will  automatically  search  the  PCF 
(Program  Complex  Pile)  for  all  necessary  subroutines  required  by  the  main  program, 
and  load  them  at  execution  time.  Unnecessary  routines  will  not  be  loaded.  All 
the  routines  required  to  execute  SAP  starting  with  program  MAIN  were  stored  in  a 
FASTRAND  drum  file  called  SAP/SAPl.  This  included  all  the  plot  routines.  The 
additional  .routines  used  to  execute  with  SCEPTRE  were  stored  in  a  file  called 
SAP/SAP2.  Both  files  were  called  into  the  PCF  for  execution  with  SCEPTRE,  and  the 
UNIVAC  allocator  loaded  the  needed  routines. 

In  the  case  of  operating  with  the  CDC  6600,  it  was  necessary  to  split  the  pro¬ 
gram  into  three  files i 

1)  routines  used  in  execution  of  SAP  without  SCEPTRE,  and  consisting 
primarily  of  plot  subroutines, 

2)  routines  required  only  while  executing  SAP  with  SCEPTRE,  and 

3)  routines  required  both  in  exscution  of  SAP  alone,  or  of  SAP  in 
conjunction  with  SCEPTRE. 

Thus  if  SAP  alone  were  to  be  executed,  the  first  and  last  program  files  would  be 
loaded;  while  if  SAP  was  to  be  executed  with  SCEPTERE,  the  last  two  files  would  be 
loaded.  Those  original  SAP  routines  which  were  altered  or  rewritten  for  SCEPTRE 
thus  would  be  in  the  first  file,  while  the  modified  versions  were  in  the  second 
file.  The  routines  which  were  unchanged,  such  as  FE,  FI,  CONVOL,  TSURF,  SURFB, 
DAMAGE,  SETUP,  FEPHI,  etc.  were  in  the  third  file. 

A  major  problem  encountered  in  adapting  FIT3D  and  SAP  to  the  CDC  6600  arose 
due  to  the  difference  in  the  manner  in  which  the  UNIVAC  1108  'and  the  CDC  6600  treat 
division  by  zero.  The  UNIVAC  1108  FORTRAN  V  compiler  of  UCC  sets  the  result  of 
dividing  by  zero  equal  to  zero.  The  CDC  compiler  sets  the  result  equal  to  an 
"indefinite"  quantity.  Whenever  this  indefinite  result  is  subsequently  used  in  a 
calculation,  the  new  result  is  set  indefinite,  etc.,  etc.  The  propagation  of  the 
indefinite  quantity  throughout  the  rest  of  the  entire  computation  usually  does  not 
take  long.  If  overflow  occurs,  a  similar  phenomena  takes  place.  Thus  it  is  manda¬ 
tory  to  test  every  denominator  which  may  conceivably  go  to  zero  during  a  calcula¬ 
tion,  and  reset  it  to  some  acceptable  small  value  if  zero  does  occur. 

Since  the  basic  computational  strategy  of  SAP  involves  the  ratio  of  an  output 
to  input  stimuli  in  the  transfer  function,  and  a  zero  value  of  the  input  stimuli  is 
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perfectly  acceptable,  such  zeroes  in  the  denominator  can  and  did  occur.  The  out¬ 
put  is  usually  well  defined  ir  such  a  situation.  For  example  for  the  741  op  amp, 
a  zero  input  leads  to  a  zero  output.  This  happens  to  be  precisely  the  action 
taken  by  the  UNI VAC  1108  Fortran,  and  so  we  did  not  experience  any  difficulty,  due 
to  this  class  of  problem.  However,  for  machines  which  treat  the  case  differently, 
it  is  wise  to  test  every  possible  denominator  which  may  go  to  zero  in  order  to  get 
around  the  action  otherwise  taken  by  the  system. 

3.  RESULTS  CALCULATED  WITH  SCEPTRE 

Using  the  Model  Description  and  Circuit  Description  given  above,  and  with 
Outputs  and  Run  Controls  as  follows j 

OUTPUTS 

El,  I  El,  VRL,  IRL,  PLOT 

RUN  CONTROLS 
STOP  TIME  -  4Bf? 

STOP 

SCEPTRE  Phase  One  generated  the  SIMUL8  and  SIMTR  programs  given  in  the  listings 
of  Figures  78  and  79. 

The  output  voltage  as  calculated  by  SAP  using  the  voltage  response  surface 
TE741  of  Figure  20  is  plotted  in  Figure  80.  A  few  pages  of 

the  output  listing  from  SAP  for  the  run  is  given  in  Figure  81,  while  the  output 
as  printed  by  SCEPTRE  is  given  in  Figure  82.  The  running  sums  of  the  convolution 
process  are  printed  by  CONVOL  in  the  output  of  Figure  81  every  tenth  time  3tep. 

Tne  oldest  partitions  occur  first  with  a  contribution  to  the  output  given  under 
the  column  heading  marked  TEMP,  The  value  of  the  surface  contribution  for  the 
partitions  is  given  in  the  column  labeled  TSURF.  The  running  sum  is  added  succes¬ 
sively  along  the  column  labeled  SUM.  The  time  that  has  passed  since  the  arrival 
of  the  partition  is  given  in  the  co'.umn  TIMER.  UIN  is  the  value  of  the  stimulus 
variable  for  the  partition.  DTL  is  the  time  step  interval  coming  in  from  the 
iteration  routines  in  SCEPTRE-  Note  that  these  steps  axe  alternating  in  size, 
and  are  different  than  the  time  step  interval  printed  out  in  the  SCEPTRE  printout 
of  Figure  82. 

The  entries  printed  out  by  SAP  at  each  time  step  are  the  block  input/output 
voltages  and  currents.  Since  no  radiation  was  acting,  the  !JT(J,3)  terms  are 


224 


0005  p 

C00005 

XPPPO 

0605 

0004 

000040 

X  S  T  E’  5  7 

non4 

0004 

000024 

XY'IMS 

00101 

1* 

SU- 

UCillTINf 

00(093  XPbSD  OOO*. 

000004  XTIsSS  0004 


00004?  xsave 
000043  XTMO.'l 


0004 

0004 


000001 

000041 


00103 
00103 
00104 
00103 
0010S 
00103 
00105 
00105 
00106 
00107 
00110 
00111 
0011? 
00113 
00114 
00115 
00116 
00117 
00l?0 
00 121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
0013? 
00133 
00134 
00135 
00135 
00143 
00144 
00145 
00147 
00150 
00151 
00151 
0015? 
0015? 
00153 
00154 
00153 
00156 
00157 
00160 
00161 
0016? 
00163 
00167 
0017? 
001  7? 
C01  f . 


2* 

3* 

4* 

5° 
6* 
7* 
8* 
N* 
10* 
11* 
12* 
1 3“ 

14* 
1  5* 
16* 
1  7* 
1  8* 
19* 
20* 
21* 
22* 
23* 
24* 
?5« 
26* 
27* 
28* 
29* 
30* 
31* 
32* 
33“ 
3**» 
Ob* 
36* 
37* 
3a* 
39* 
•*0* 
41  » 
42* 
4  3* 

4*4* 
45* 
4b* 
4  7* 
4  3* 
4V* 
SO* 
51* 
52* 
53* 
3<»* 
35* 
S-,» 


ISS.  XM'lA  IE  ♦ 

cpep.  xlCAt* 

0*  XFPT.XrKE 
xTmon.sk IP ( 


10 


20 


4 1 M T a  (kway.«SK!  I) 

ILLICIT  pe  aL  (A-J.L-M.0-/)  .  lNTtOErt  (K.N) 

SCr.PTPE/l  10‘»  CIRCUIT  ANALYSIS  PROGRAM 

CO-MON  /T  AJJS/NOlt  T  Ta  .MT  A.'(  ,  NL  1 3  ltJ .  NOU  fO  .NED 1  TP .  NS  A  YIP 
CO',MUM  /(  "KH  S/T  Imp.XSTooi  .amxERI  .X  IP. XT  ISSS.XmNISS.XMX 
*Xi'!XA  l*  .  XIC.' “f  *»•(».  XMXPAS.  XMfWlt  *  AMXKl-.XVfJtSO.XMX  1CM.X  I 
*.  XMXOTP.  X  if'ip'S.  X  YOpiS,  A 1  Cp AS .XnOpPQ. AMTNDX  •  XNriF.  AO.  XNDF  F. 

*PN . XCNTMD . X* TPMO . XP ASNO «  XMUNNO , Abl RS2  »  XI RANS • XSA VP 
*4) 

DIMENSION  CT°Ol S ( 70 » 

common  /MAmfs/F 1 ,POIl .C) .POT1 .^L.rfl .HIT1.PLT1 «JITl .JOT1 
common  /voi.ir.s/ve i .veon . vci , vruii .vsl.vpi.vpiti.v^lt i .vji ti  . vjoti 
common  /C'-'PNTb/IF.l.irOn  ,  IC1.IROT1.1«L.I»1«IpIT1»IHLT1,I  JITl.IJOn 
DIMENSION  <p?2D(  3)  •  XC44I)  (  1 )  .  xkSSD  (  21  .  XE  7  C  ?>,XJi?{  ?> 

DIMENSION  V?<  3 ) . V4 (  1).V5(  2 ) , V7 (  ?>,V8(  ?) 

DIMENSION  I?<  3 ) « 1 4 (  l>,Ib(  2) . I  7 (  2) » 18 (  2) 

E0OI  VALl'MCP  (VP1  .V?)  .  (VC1  .V4)  .  (VkOT  1 «VS) . <VE1 .V7) * (VJIT  1  .  V8> 

FOtM  VALENCE  (I  Pi  .I?)  .  (IC1 .14)  .  (IxOTl.IS)  .  (IE  1*17)  •  (I  JIT  1.13) 
EQUIVALENCE  <«1.XP??D> . (C) .XC440) , (POT  1 ,  XR55D) , (El .XE7) . ( JIT  1 *X  J8) 
COMMON  /SAVCIC/V4IC(  11 
COMMON  /SAVlCT/V4lCT(  11 
DIMENSION  V<<OOT  (  1) 

COMMON  /orcivs/nci 

COMMON  /UT  Il.TY/SAVETM  (8.  1) 

EQUIVALENCE  (0C1.V400T) 

DIMENSION  P«AMTP(  1) 

COMMON  /(  WTPS/oJl  Tl 
EQUIVALENCE  (PPAMTP.PJITl)  • 

COMMON  /QUTPTS/OTPOST (b.  4) 

COMMON  /OUTauT/TMlNDX (  5) 

COMMON  /OUT OT A /OUT PEP (  5) 

EQUIVALENCE  (CTPOLS.TIME) 

DATA  NCL1C/  0/.NCL3C/  0/.NCL4C/ 

TRANSIENT  lA'I  T  I AL 1 7ATIOM 
DIMENSION  <mPOO  (  3) 

DIMENSION  «?P  (  3) 

IE  (  KS'.'I  T  .Mr  ,  0  1  GO  TO  1 

XMPGOI  1)=*1 
XMRGO (  P) =P  IT  1 
XMM00(  3)=pLT1.KiT1*RL 
TPA35JENT  eohaTIOSS 
co\t;  .iie 

V?p=-325*R5SO» (•’33T*I3*»85T*J8)-324*V4-827*E7 
e  1  =FVOi  T?m  AE* 

v?p(  n=-«r  -Ei 

V?P(  2 ) —  —  E 1 
VJ I T 1 =-E  1 

eoti=eov74i  (time  .vjiTi.ipni.pjiru 

J0T1=E0J74MTI“«  .VJITl  .IP I  U.PJ11  1) 

v?p(  3)=-poi  i*i*jorii*PL*(-Jorn*EOTi 
DO  1 0  Ns  1,3 

I2(M  =  v?p (M)  /xm  ar,N  (n) 
no  20  N=  1,3 

V?(M)=1P(N1»‘3?P0(N) 

I5  =  ..?5T*l?4-'76Tel  3,B45T*J8 
(mot | a* |kLT 1 ♦ JOl  1 


1/.NCL6C/  O/.NOPD/  0/ 


Figure  78.  SIHTR  Listing 


XSTOP 

xtpan 
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00175 

57* 

lpL  =  ~I0l T  1- 

ini  1 

00176 

St* 

00  30 

Ms  1.2 

00201 

57* 

30 

V5(N) -  1  - <N1 *  X“Sr 0 (Ml 

C0?01 

60* 

C 

I 4-M 141*1 1» 

,<24l  a  I  2.1(341*1  3*484  I  «J8 

00203 

(  1* 

1 C 1 =* I R 1 

00204 

62* 

no  4  0 

'.s  1.1 

00207 

43* 

4(1 

04  )>'.t  (>:}  =  [/. 

I  ii/>C44D(N) 

0021  1 

64* 

Of  1 1K-N 

00212 

65* 

F' 

Figure  ?8b.  SIHTR  Listing  (cont.) 


00101  l* 

00103  2* 

00 1 03  3*  C 

00104  4* 

00106  5* 

0010b  6* 

0010b  7* 

00105  d* 

00105  9* 

00106  10* 

00107  II* 

00110  12* 

0011 l  .13* 

00112  1*» 

00113  15* 

00114  lo* 

00115  17* 

00116  Id* 

00117  19* 

00120  20* 

00121  21* 

0012?  22* 

00123  23* 

00124  24* 

00126  26* 

00126  26* 

00127  27* 

00130  ?*• 

00131  29* 

00132  30* 

00133  31* 

00134  32* 

00136  33* 

00135  34*  C 

00143  35* 

00171  36* 

C0?t  7  37* 

00246  36* 


SUBROUTINE  61MUL8<K'aAY1 

IMPLICIT  RpAL  (A-J.L-M.O-71 .  INTtCifcR  (K.N) 

SCFpTPE /  1  1  o  4  C I  PCM  f  T  ANALYSIS  PROGRAM 
COMMON  /TAPES/NGtl!  TP.NTaPE.NLHTP.NOUTP.NEOITP.NSAVTP 
COmmoM  /CNTPLS/1  IMF.XSTOPT.XMxERI.XIR.XTISSS.XMNISS.XMXISS.XMNAIE. 
•XMXAlE. t IC.XPEPbO.XMXPAS.XMKPlt .AMXRIE.XMNISO.XMXICP.XICRER.XICAER 
*,XMXOTp.XXniMS,xY0IMS»X(CP/.6.XrJ0P'?O*XNTNnX.XMHEA0«XN0FE0*XEPT«XN«E 
*PN.XCMTtjU,X6TPN()«XPASNU.X«!INN0.XSTPSZ.XTRAM5.XSAYE  .XTMON.SKIPI 

*41 

DIurNS)(1N  CT«ni.6(70) 

COMMON  /MA--«rS/F1  ,F0T1  .Cl  »»OT]  ,PL.«1.RIU,RLT1  .JITl.JOTl 
CC  xmO*!  /VOI  TG6/VF1 .VFOT I .VC1.W01  1 .VPL.VRl . VPI  T  1  . VRLT 1 . V JI T 1 . V JOT  1 
CO^ON  /ctlPi.'T  S/ 1 E  1 .  IFO1 1  »  ICl  *  IrO  T 1 « I  PL.  IR 1  •  IRl  T 1  ♦  IrtLT  1  •  I  JI  T  1  *  I  JOT  1 
0  f  ••’('.  N6 1 0'J  *  P22I)  (  ->).XC440(  l).XP5SO(  2>.XF7(  ?).XJ8(  2) 

rvI-<M.S106  V2<  3).V4(  )i,v5<  2>.V7<  ?),VH(  ?) 

DIMENSION  1?(  3) . 14 (  )}.I6(  2I.I7(  2) » 1 8  (  2) 

FOUIVAI  H'C*  ( VP  | «V?) . ( VC  I .V4) . ( VRO fl«  VS  ).(V£  1.1/7). (VJIT) ,V8> 

FQ'I  I VAL. W  ( IP) . 12) . (1C) ,14) , (IKOTI ,151 . (TF1 .17) . (IJI Tl.IB) 
FQHIV/l^'C*'  »r<)  ,  >42201  ,  (C1.XC440)  ,  («OT 1 . XHSSO) . (El .XE7)  ,  (JIT1.XJB) 
COMMON  /SAVHC/V4IC  <  1) 

COMMON  /6A V  I c I/V4 irr (  I) 

DIMENSION  V4»0T I  11 

COMMON  /0E4  I  V6/I>C  1 

COMMON  /liTIl  IY/CAVFTR(6,  1) 

FOOIVA|f>C*  (DC )  . YaOOT) 

DIMENSION  PRAMT 4 (  )1 

COMMON  /p»vX4H/p  II T 1 
FOWVAlFmC1-'  (PpamTP.pjjt  J ) 

CO 'MON  /OOlPTS/OWOST  (5.  41 

COMMON  /OUTPOT/IP!NOX(  51 
CO"MON  /OUTHT A/OUTRFP (  5) 

E  OU I V  A l F  MCI  (CTPOIS.TIME } 

DATA  NCI.  1 C/  02.  NC|.  30/  0/.NCL4C/  IX.NCL6C/  O/.MOPO/  0/ 

READ  In  incut  data 

RF  All  (N6A'/TP. 70UQ) XF7.XC44D.XPS50.XR220.XJB 
RE  AO  (N6AV  TP  .7n(IUl  V7.V4.V5.V2.Vd 
READ  C'S  A  V I  p  .  7nO'J  1  I  7. 1  a,  15,12.  It) 

READ  (N6AVTP. 70001 V4ICI 


Figure  79»*  S  I  M  U  L  8  Listing 
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00253 

00?<S1 

00267 

00275 

00303 

00306 

00307 

00310 

00  311 

00312 

00313 

00314 

00314 

00315 

00315 

00315 

00316 

00317 

00320 

00321 

00321 

00323 

00324 

00324 

00326 

00327 

00330 

00331 

00332 

00333 

00334 

00335 

00335 

00337 

00340 

00346 

00374 

00422 

00450 

00456 

00464 

00472 

00500 

00506 

00511 

00511 

00512 

00512 

00512 

00513 

00515 

00516 

00517 

00520 

0052! 


3**  RF  AO  (NSAVTP.7000) V4D0T 

40*  RFAO  (USAVTP. 7000)  PR  AMT  P 

41*  RF  AO  (*'5A'/TP«7400)OTR05T 

42*  RF  AD  (N5AVTPW600)  TP1N0X 

43*  »FAD  <  ‘J5A  V  fP  »  7400)  ENDCPD 

44*  7000  FORMAT  ( SE 1 4 . 7 ) 

45*  7100  FORMAT ( l 2AM 

46*  7200  FORMAT (1H0/(1X,1P?F14. 7)1 

47*  7400  FORMAT  ( 1 2A6) 

48*  7500  FORMAT(1HO/(1X,1?A6>> 

49*  7600  FORMAT  ( 1 RO/ ( 1 X « 1 2A6) 1 

50*  CALL  TPHFAO 

51*  C  LOAO  APPROPR 1 A  TF  IMITIaL  CONDITIONS.  DATA 

52*  CALL  XI  OAfMVlTC.VlICT.Vl  ,NCL  1C .  I  3IC.  I  3ICT  .  I  S.NCL3C  *  V4IC.  V4 1  CT  •  V4  .N 

53*  *CL4C»I6IC*  T6ICT.  16,K'CL6C«  0.NWAY1 

54*  c  transient  initialisation 

55*  CALL  5IMTR(KWAY.0) 

56*  9000  XPASf.'0=XPASN0*l  . 

57*  CALL  SIMTP  ( tTWAY « 1 ) 

•DIAGNOSTIC*  THF  TFST  FOP  EOUAt  TTY  bFTWEEN  NON-INTEGERS  MAY  NOT  BE  MEANINGFUL. 
5a*  IF _ {XSTPHO.rO. 0.)  GO  TO  9050 

59*  9010  CAtL  INTGR« (NOGO* I 3«NCL3C»V4*NCL4C*PRAMTR»  NOPO) 

60*  IF  (NOGO.EO, 0>  GO  TO  9000 

61*  C  LOAD  OUTPUT  REQUESTS 

62*  9050  OUTBFR  (  n=Tl«E 

63*  0UT8FR  (  ?)=E1 

64*  IE1=-IR1-1RIT1-JIT) 

65*  OUTBFP  <  3) =IE1 

66*  OUTRFR  (  4J=VRL 

67*  OUTaFR  {  R)=IRL 

6a*  CALL  GUTP(WUAY) 

69*  IF  (KWAY.EO.O)  GO  TO  9010 

70*  C  WRITE  OUT  THE  COMPUTED  VALUES 

71*  9090  REWIND  MFOITP 

72*  WRITE  ( NED  I  TP « 7001 )  CTRUI.S 

73*  WRITE  (UEOUP»7n01)XE7.XC44D.XR55D.XR2?|),XJ3 

74*  WRITE  (NEOITP*7001)V7.V4»V5*V2*VB 

75*  WRITE  (NF.niTP»7001H7»14.I5»I2.IB 

76*  WPITE  (NEO1TP.7001) V4JC 

77*  WRITE  (MFf)l  TP«7001 )  V400T 

78*  WRITE  (NFOITP.7001)PRAMTR 

79*  WRITF  (NEO!TP.7400)OTROST 

80*  WRITE  (NFOT  T° »  7400) TPJNDX 

81*  WRITE  (NF  01 TP»  7400 ) FNDCRO 

82*  7001  FORMAT! IPSR14. 7,  10X) 

83*  c  LOAn  apppoppi atc  transient  data 

8<**  CALL  XLOAD (VI IC»V1TCT«V1 »NCL 1C . 1 3IC » 1 3ICT ♦ 1 3.NCL3C* V4IC. V4I CT  * V4«N 

85*  *CL4C,l6IC.l6tCT,Ia,NCL6C,  ?,NWAY) 

86*  C  CHECK  FOP  PROGRAM  SAVE 

p-7*  IF  (KWAY .'IF  ,9)  GO  TO  9100 

8a*  CALL  SAVFPOdJ 

84*  KUAY=0 

90*  GO  TO  9010 

91*  9100  RETURN 

92*  END 


END  OF  UCC  Uos  FORTRAN  V  COMPILATION. 
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Figure  ?9b.  SIHDL8  Listing  (cont.) 
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Figure  80a*  SCEPTRE  Plot  of  Input  Voltage  versus  Time 
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Figure  31b.  SAP  Printout  during  SCEPTRE  run  (eont.) 
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Figure  81c,  SAP  Printout  during  SCEPTRE  run  (cont) 
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Figure  81d«  SAP  Printout  during  SCEPTRE  Pun  (cont) 
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Figure  8le»  SAP  Printout  during  SCEPTRE  Run  (cont) 
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Figure  82a,  SCEPTRE  Printout  during  SCEPTRE  Run 
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Figure  82b.  SCEPTRE  Printout  during  SCEPTRE  Run  (cont) 
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Figure  82d,  SCEPTRE  Printout  during.  SCETTRE  Run  (cont) 


zero  throughout.  Normally  In  a  SAP  execution  the  iteration  cycle  in  MAIN  is 
printed  out  during  each  time  step,  but  the  basic  iteration  strategy  of  SAP  is  out 
of  action  because  SCEPTRE  has  the  last  output  node.  Hence  iteration  results  are 
not  printed  in  the  listing  of  Figure  8i  by  SAP. 

The  printer  plot  output  by  SCEPTRE  from  the  run  is  contained  in  Figure  80. 
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SECTION  VIII 


CONCLUSIONS 

Emphasis  has  been  given  during  this  research  program  to  finding  out  whether 
reasonable  hope  exists  for  treating  radiation  effects  on  electronic  components 
usirg  strictly  numerical  representations  of  time  domain  input-output  response 
surfaces.  It  was  seen  that  convolution  works  reasonably  well  for  the  class  of 
non-linearity  represented  by  a  saturating  op  amp, 

Piob'/oly  a  clear  cut  major  advantage  of  the  approach  is  the  immediate  grasp 
of  the  intricacies  of  tae  radiation  response  over  the  domains  of  the  dose  and  time 
variables  which  the  surface  presentations  provide.  If  suitable  data  acquisition 
systems  and  data  reduction  equipment  are  mad '  on-line  accessories  at  the  major 
radiation  facilities  in  the  country,  then  surfaces  such  as  presented  here  could  be 
obtained  while  the  data  is  being  taken.  If  a  picture  is  worth  a  thousand  words, 
certainly  a  surface  is  worth  several  dozens  of  Polaroid  pictures  of  single  events. 
The  surface  representation  is  far  more  readily  remembered. 

The  original  surface  representations  for  the  ?4l  were  rather  laboriously  drawn 
by  hand  using  large  three  dimensional  perspective  grids,  The  one  advantage  of  the 
technique  was  that  human  judgement  was  directly  r  lied  in  resolving  inconsisten¬ 
cies  between  data  sets,  smoothing  and  interpolating  where  needed.  The  first  re¬ 
sults  thus  looked  good  subjectively.  The  data  sets  for  the  9704  gate  were  treated 
solely  by  computer  processing  methods.  By  judicious  use  of  wild-pointing,  smooth¬ 
ing,  and  intc rpolation  routines,  and  by  culling  completely  inconsistent  data  sets, 
su: faces  could  1x3  obtained  whose  smoothness  is  again  a  matter  of  subjective  choice. 
I °  appropriate  data  reduction  equipment  is  available  at  the  radiation  site,  the 
computer  processing  strategies  are  clearly  the  way  to  go. 

The  basic  computational  techniques  involved  in  the  Propagation  of  3ivariable 
Response  Functions  were  tried  for  some  rel  iively  simple  circuit  configurations. 

A  leaning  process  was  evident  in  treating  the  parallel  block  algorithm.  If  the 
transfer  functions  contain  the  output  variables,  then  a  self-consistency  loop  is 
required  Ln  the  iteration  process  to  produce  a  stable  convergence.  The  precision 
of  the  solution  was  about  0.1  percent  for  the  case  of  a  feedback  loop  around  an 
op  amp.  The  gain  calculated  was  precisely  that  expected.  The  response  of  the  op 
amp  to  sine  waves  yielded  expected  values  for  the  phase  shift  with  frequency. 
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Care  must  be  taken  in  very  slow  phenomena  that  the  time  steps  are  small  enough 
that  enough  partitions  are  created  to  correctly  sample  the  device  dynamics.  If 
the  device  is  nonlinear*  more  time  ste,  may  be  required  in  the  nonlinear  region 
than  in  the  linear  region. 

The  radiation  response  simulations  have  good  computational  characteristics  so 
far  as  large  scale  computer  processing  is  concerned.  Runs  were  made  that  involved 
convolving  or  interpolating  on  four  surfaces  simultaneously,  with  execution  times 
on  the  UNIVAO  1108  of  six  seconds  per  50  time  steps.  All  the  surfaces  treated 
here  wer  >  fit  with  a  20  x  20  fitting  grid,  and  thus  required  1200  numbers  to  re¬ 
present  them.  Some  surfaces  might  be  adequately  fit  with  r  smaller  number.  It 
was  also  pointed  out  that  if  the  surface  values  are  obtained  by  calculation  based 
on  a  lower  level  system  analysis  rather  than  from  experimental  data,  it  is  not  neces¬ 
sary  to  least  square  justify  the  information.  The  computer  time  required  to  generate 
the  three  dimensional  fit  is  then  lowered  drastically.  Thus  from  the  point  of  view 
of  the  important  system  analysis  concept  of  staging  of  complexity  levels,  the  machine 
execution  time  requirements  are  entirely  reasonable. 

Logarithmic  time  bases  were  seen  to  be  advantageous  in  fitting  certain  classes 
of  surfaces.  If  the  device  makes  a  rapid  transition  from  a  fast  to  a  slow  pheno¬ 
mena,  then  such  a  time  base  works  well,  both  for  the  surface  and  the  simulation. 
Problems  can  be  encountered  in  using  such  a  time  base  on  a  surface  which  is  short 
relative  to  the  time  steps,  as  the  irae  step  changes  during  the  computation.  In 
this  case  a  convolutional  strategy  will  probably  have  to  make  a  transition  to  a 
single  partition  look-up  process. 

The  merging  of  the  techniques  of  SAP  with  SCEPTRE  seemed  relatively  straight¬ 
forward.  The  amount  of  core  space  remaining  available  to  the  user  hopefully  might 
be  increased  when  the  matrix  dimensions  in  SCEPTRE  become  adjustable.  If  a  block 
technique  is  used,  the  nodal  complexity  should  be  reduced. 

While  it  is  conceivable  that  higher  dimensionality  surfaces  than  the  three 
dimensional  ones  treated  h6re  might  be  required  for  general  cases,  no  attention 
was  directed  to  them  in  the  work  covered  here.  This  is  a  question  to  be  examined 
if  the  three  dimensional  surface  concept  does  prove  of  value.  Work  is  being  done 
at  LM3C  in  improving  the  computer  aspects  of  dealing  with  surfaces  of  higher 
dimensional \ tv. 
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The  results  obtained  in  this  contract  seem  encouraging  in  terms  of  computation¬ 
al  characteristics,  and  enlightening  in  terms  of  understanding  and  visualizing  the 
effects  of  radiation  on  devices.  Summarizing  them 

Established  Advantages  or  Conclusions 

•  Surfaces  provide  rich  intuitive  'understanding 
of  device  electrical  and  radiation  responses, 

•  On-line  computer  reduction  of  radiation  effects 
data  to  the  surface  form  seems  practical. 

•  Engineering  precision  of  output  response  prediction 
can  be  achieved  by  the  bivariable  response  function 
propagation  method. 

•  The  computer  execution  time  and  s' arage  required 
are  entirely  acceptable. 

•  A  completely  numerical  representation  of  device 
dynamics  can  be  used  for  circuit  analysis. 

•  Staging  of  complexity  levels  in  system  analysis  by 
computer  calculation  of  response  surfaces  should 
have  acceptable  execution  times  for  surface  fitting. 

•  Logarithmic  time  bases  and  steps  can  be  used  for 
certain  devices  radiation  simulation. 

•  SCEPTRE  is  adaptable  to  this  method. 

Areas  of  Suggested  Further  Study 

•  Best  mix  of  iteration  strategies  in  combination 
series  and  parallel  circuits. 

•  Actual  trial  of  staging  of  complexity  levels  in 
system  analysis  by  this  method, 

•  Transition  between  convolution  and  single  partition 
surface  look-up  to  calculate  responses. 

•  use  of  surfaces  having  dimensionality  higher  than  three. 

•  Application  to  wider  classes  of  devices  and  systems. 

•  Failure  mechanism  analysis  of  the  permanent  degradation 
observed  on  the  741  s. 
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APPENDIX 


TECHNIQUES  USED  FOR  REACTOR  TESTS  OF  DEVICES 

The  sample  devices  were  held  to  styrofoam  assemblies  held  at  seven  distances 
from  the  core  centerline#  as  given  in  the  Test  Plan  we  had  submitted  earlier  to 
White  Sands.  The  overall  situation  in  the  reactor  room  is  shown  in  Figure  83* 

The  photograph  shows  five  of  the  styrofoam  blocks  mounted  to  the  pegboard  table. 

Two  other  blocks  are  out  of  the  field  of  view  off  to  the  left  at  distances  of  7 
and  12  feet  from  core  centerline.  Careful  inspection  of  the  drawing  in  the  frame 
on  the  far  wall  of  the  cave  shows  a  plan  drawing  of  the  reactor  core  itself.  Note 
the  "glory  hole"  down  the  core  axis  for  maximum  neutron  dosages. 

Since  the  different  holders  portray  different  angles  relative  to  the  lens  axis, 
the  way  in  which  the  devices  are  attached  and  positioned  relative  to  the  reactor 
core  become  evident.  Affixed  in  the  leftmost  holder  are  two  cables  (laced  with 
blue  tape  and  oi-ange  tape)  holding  mother  sockets  containing  one  9704  and  one  741 
respectively.  (The  9704  is  a  flat-pak  and  doesn't  stick  out  as  far  as  the  DIP  741 
package.)  The  sockets  are  mounted  on  3  x  4  in. -pieces  of  flat  white  plastic  l/l6th 
inch  thick.  A  black  plastic  ferrule,  which  can't  be  seen,  fits  around  the  cable 
on  the  back  side  of  the  plastic,  and  is  potted  with  Silastic  RTV  to  hold  the  wires 
to  the  socket  better.  The  ferrule  nests  in  a  1  in. -cut  into  the  front  face  of  the 
styrofoam  block,  as  shown  in  Figure  84.  Styrofoam  is  an  easy  material  to  work  with, 
and  has  low  density  which  is  important  from  the  point  of  view  of  minimizing  inter¬ 
action  with  the  core  fission  characteristics. 

The  dosimetry  employed  during  the  shots  consisted  of  sulfur  in  aluminum  cans, 
which  measures  the  integrated  fast  neutron  flux,  and  TLD's  or  thermoluminescent 
detectors  of  LiF,  which  is  responsive  to  the  gamma  flux.  These  were  coded  as 
follows t 

S1A  ~  2 

Sandia  Position  Shot  Number 

The  dosimeters  were  held  in  position  on  the  styrofoam  blocks  by  masking  tape, 
so  that  rapid  changes  could  be  made  between  reactor  bursts  reducing  exposure  of 
personnel  to  the  radiation  from  the  walls  of  the  reactor  roan. 
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Figure  84,  Typical  Styrofoam  Block  to  Hold  Devices,  Radius  of  Inside  Surface  provide: 

Equidistant  Exposures  for  up  to  Three  Devices,  The  Ferrule  on  the  Back  of 
Socket  Plate  fits  into  a  One  Inch  Hole  in  the  Block,  Cable  Slips  in  Groov 


For  the  White  Sands  dosimeters  mounted  for  cross-calibration  puposes 


White  Sands  Sulfur  No.  8491 

TLD  No.  94 


These  dosimeters  were  affixed  to  the  face  of  the  styrofoam  blocks  with  masking 
tape.  The  devices  project  1"  closer  to  the  core  than  the  dosimeters  front  the  face 
of  the  block,  and  the  final  dosage  computations  were  corrected  for  this  difference 
assuming  inverse  square  intensity  change  with  distance.  No  attempt  was  made  to 
alter  the  fission  n  -  y  ratio  by  lead  shielding.  If  lead  is  placed  close  to  the 
reactor  core,  significant  perturbations  in  the  reactor  pulse  result. 


Safety  block  and  control  rod  adjustment  controls  are  the  means  by  which  the 
desired  burst  pulse  is  achieved.  This  is  most  conveniently  discussed  in  terms  of 
the  temperature  rise  of  the  core  as  measured  by  thermocouples,  and  is  called  AT  and 
given  in  degrees  centigrade.  We  aimed  at  a  AT  value  of  320°C  for  all  the  bursts. 
The  actual  values  achieved  were! 


Shot  No, 

Sandia  Burst  No. 

AT 

Date 

Time 

6t 

1 

489 

317°C 

5/1V71 

h  m 
1935 

h  m 

2 

490 

296 

5/15/71 

0932 

3 

491 

317 

II 

1227 

3  55 

4 

492 

322 

H 

1452 

2  25 

5 

493 

321 

tl 

1653 

2  01 

6 

494 

315 

II  - 

I852 

1  59 

7 

499 

313 

5/17/71 

1817 

8 

500 

321 

II 

2031 

2  14 

9 

506 

317 

5/18/71 

1834 

10 

507 

318 

II 

2034 

2  00 

11 

514 

'  313 

5/19/71 

1831 

12 

515 

319 

II 

2030 

1  59 

The  last  column,  6t,  gives  the  time  in  hours  and  minutes  between  bursts, 
A  separate  test  box  was  aade  up  for  the  741  transfer  function  measurements,  so 
that  a  Tektronix  575  curve  tracer  could  be  used  just  for  the  9704  gate  measure¬ 
ments.  A  Tektronix  7004  soope  was  used  for  the  741  transfer  function  pictures. 
Twelve  scopes  were  used  in  the  measurements.  A  scope  was  used  to  be  sure  only 
one  trigger  was  delivered  to  all  the  pulse  generators  and  scope  triggers,  since 
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occasionally  the  Sandia  trigger  circuit  would  create  a  double  pulse.  A  typical 
timing  sequence  for  the  pulse  reactor  is  shown  below  in  Figure  85. 


Figure  85.  Pulse  Reactor  Timing  Sequence 

A  type  of  radiation  damage  observed  on  the  741  op  amps  after  neutron  expo¬ 
sure  at  the  closest  position  of  the  SPR  is  shown  below  in  Figure  86.  The  input-out- 
put  voltage  transfer  characteristic  takes  on  a  butterfly  shape  in  the  center.  This 
is  a  permanent  degradation  of  the  device. 


DATE 

PHOTO 
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i'lHl'fl  741-11 


VI  =  £•  =  C\r  /DIV  H—  =  SOisjr/ow 

V2=  =  /DIV 


Figure  86,  Effect  of  Neutron  Radiation  on  741 
Op  Amp  Input-Output  Characteristic 
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If  this  degradation  is  observed  in  a  time  domain  oscilloscope  waveform  as 
shown  in  Figure  87,  the  output  appears  to  take  on  a  "top  hat"  which  builds  and 
grows  on  top  a  low  level  pulse.  With  increased  input  signal  the  top  hat  becomes 
larger  and  initiates  earliero 


PHOTO 

ft*re  (e 
jjjif  IX 


VI  =  Si  =  ib^Dlv  H=  t*  -  *  /D|V 

V2  =  c#  -  U  /Div  fttlRi- ***/{!< 

Figure  87.  Effect  of  Neutron  Radiation  on 
741  Op  Amp  Pulse  Response. 

k  sketch  of  the  reactor  core  is  shown  below. 


Schematic  of  Reactor  Gore 


The  Uranian-Molybdenum  alloy  fuel  elements  of  the  core  expand  20  to  30  mil  during 
burst,  which  is  enough  to  stop  the  fission  chain  reaction  process  and  terminate 
the  pulse, 
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